Diff for /gforth/libcc.fs between versions 1.30 and 1.31

version 1.30, 2008/02/12 20:28:51 version 1.31, 2008/04/19 19:15:14
Line 444  create gen-wrapped-types Line 444  create gen-wrapped-types
 : .lib-error ( -- )  : .lib-error ( -- )
     [ifdef] lib-error      [ifdef] lib-error
         ['] cr stderr outfile-execute          ['] cr stderr outfile-execute
         lib-error ['] type outfile-execute          lib-error ['] type stderr outfile-execute
     [then] ;      [then] ;
   
 DEFER compile-wrapper-function  DEFER compile-wrapper-function
Line 462  DEFER compile-wrapper-function Line 462  DEFER compile-wrapper-function
     lib-filename 2@ append s" .la" append ( c-addr u )      lib-filename 2@ append s" .la" append ( c-addr u )
     2dup system drop free throw $? abort" libtool link failed"      2dup system drop free throw $? abort" libtool link failed"
     lib-filename 2@ s" .la" s+      lib-filename 2@ s" .la" s+
   \    2dup type cr
     2dup open-lib dup 0= if      2dup open-lib dup 0= if
         .lib-error true abort" open-lib failed"          .lib-error true abort" open-lib failed"
     endif      endif

Removed from v.1.30  
changed lines
  Added in v.1.31


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>