--- gforth/libcc.fs 2010/09/13 22:26:16 1.64 +++ gforth/libcc.fs 2010/12/31 18:09:02 1.67 @@ -1,6 +1,6 @@ \ libcc.fs foreign function interface implemented using a C compiler -\ Copyright (C) 2006,2007,2008,2009 Free Software Foundation, Inc. +\ Copyright (C) 2006,2007,2008,2009,2010 Free Software Foundation, Inc. \ This file is part of Gforth. @@ -154,7 +154,7 @@ variable lib-handle-addr \ points to the 2variable lib-filename \ filename without extension 2variable lib-modulename \ basename of the file without extension 2variable libcc-named-dir-v \ directory for named libcc wrapper libraries -0 value libcc-path \ pointer to path of library directories +Variable libcc-path \ pointer to path of library directories defer replace-rpath ( c-addr1 u1 -- c-addr2 u2 ) ' noop is replace-rpath @@ -698,8 +698,8 @@ clear-libs : init-libcc ( -- ) s" ~/.gforth/libcc-named/" libcc-named-dir-v 2! -[IFDEF] make-path - make-path to libcc-path +[IFDEF] $init + libcc-path $init libcc-named-dir libcc-path also-path [ s" libccdir" getenv ] sliteral libcc-path also-path [THEN]