Update of /cvsroot/win32forth/win32forth/apps/Solipon2
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv16823/apps/Solipon2
Modified Files:
SOLIPION.F
Log Message:
Jos: Depreciated the old path-ptr and replaced path-ptr by search-path
Index: SOLIPION.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Solipon2/SOLIPION.F,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** SOLIPION.F 25 Sep 2005 15:19:28 -0000 1.5
--- SOLIPION.F 26 Aug 2006 15:25:31 -0000 1.6
***************
*** 242,246 ****
: find-file ( addr len -- addr1 len1 )
! path-ptr off \ clear path list
s" ." "fpath+ \ current dir is first
&forthdir count "fpath+
--- 242,246 ----
: find-file ( addr len -- addr1 len1 )
! search-path off \ clear path list
s" ." "fpath+ \ current dir is first
&forthdir count "fpath+
|
