--- gforth/libcc.fs 2008/04/28 08:42:59 1.33 +++ gforth/libcc.fs 2008/04/29 20:03:40 1.34 @@ -481,7 +481,7 @@ DEFER compile-wrapper-function ( -- ) lib-filename 2@ append s" .lo -o " append lib-filename 2@ append s" .la" append ( c-addr u ) c-libs @ ['] append-l list-map - 2dup type cr +\ 2dup type cr 2dup system drop free throw $? abort" libtool link failed" lib-filename 2@ s" .la" s+ \ 2dup type cr