Diff for /gforth/lib.fs between versions 1.32 and 1.33

version 1.32, 2008/07/31 12:48:26 version 1.33, 2008/08/02 22:03:48
Line 25  s" os-type" environment? [IF] Line 25  s" os-type" environment? [IF]
             [ELSE] 2dup s" darwin" string-prefix? [IF] 2drop s" libffi.dylib"              [ELSE] 2dup s" darwin" string-prefix? [IF] 2drop s" libffi.dylib"
                 [ELSE] 2drop s" libffi" [THEN] [THEN] [THEN] [THEN] [THEN]                  [ELSE] 2drop s" libffi" [THEN] [THEN] [THEN] [THEN] [THEN]
 open-lib [if]  open-lib [if]
     .( including libffi.fs )  \    warnings @ [IF] .( including libffi.fs ) [THEN]
     include libffi.fs      include libffi.fs
 [ELSE]  [ELSE]
     s" libavcall.so"     open-lib 0<>      s" libavcall.so"     open-lib 0<>
     s" libcallback.so"   open-lib 0<> and [if]      s" libcallback.so"   open-lib 0<> and [if]
         .( including fflib.fs [ffcall] )  \       warnings @ [IF] .( including fflib.fs [ffcall] ) [THEN]
         include fflib.fs          include fflib.fs
     [ELSE]      [ELSE]
         .( Neither libffi nor ffcall are available ) cr          .( Neither libffi nor ffcall are available ) cr

Removed from v.1.32  
changed lines
  Added in v.1.33


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