--- gforth/lib.fs 2008/07/15 16:11:49 1.26 +++ gforth/lib.fs 2008/07/29 15:55:26 1.29 @@ -17,17 +17,17 @@ \ You should have received a copy of the GNU General Public License \ along with this program. If not, see http://www.gnu.org/licenses/. -s" libavcall.so" open-lib 0<> -s" libcallback.so" open-lib 0<> and [if] - .( including fflib.fs [ffcall] ) - include fflib.fs +s" libffi.so" open-lib [if] + .( including libffi.fs ) + include libffi.fs [ELSE] - s" libffi" open-lib [if] - .( including libffi.fs ) - include libffi.fs + s" libavcall.so" open-lib 0<> + s" libcallback.so" open-lib 0<> and [if] + .( including fflib.fs [ffcall] ) + include fflib.fs [ELSE] - .( Neither libffi nor ffcall are available ) cr - abort + .( Neither libffi nor ffcall are available ) cr + abort .( Using oldlib.fs; incompatible with fflib.fs and libffi.fs) cr include oldlib.fs [THEN] @@ -38,7 +38,11 @@ s" libcallback.so" open-lib 0<> and [i [IFUNDEF] libc s" os-type" environment? [IF] 2dup s" linux-gnu" str= [IF] 2drop - library libc libc.so.6 + cell 8 = [IF] + library libc /lib64/libc.so.6 + [ELSE] + library libc /lib/libc.so.6 + [THEN] [ELSE] 2dup s" cygwin" str= [IF] 2drop library libc cygwin1.dll [ELSE] 2dup s" bsd" search nip nip [IF] 2drop