--- gforth/lib.fs 2008/02/12 20:28:51 1.23 +++ gforth/lib.fs 2008/07/26 21:31:08 1.28 @@ -1,6 +1,6 @@ \ lib.fs shared library support package 11may97py -\ Copyright (C) 1995,1996,1997,1998,2000,2003,2005,2006,2007 Free Software Foundation, Inc. +\ Copyright (C) 1995,1996,1997,1998,2000,2003,2005,2006,2007,2008 Free Software Foundation, Inc. \ This file is part of Gforth. @@ -18,9 +18,7 @@ \ 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 -s" libvacall.so" open-lib 0<> and -s" libtrampoline.so" open-lib 0<> and [if] +s" libcallback.so" open-lib 0<> and [if] .( including fflib.fs [ffcall] ) include fflib.fs [ELSE] @@ -40,7 +38,11 @@ s" libtrampoline.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