[Win32forth-cvs] win32forth/apps/Solipon2 SOLIPION.F,1.5,1.6

[Jos v.d.V. <jo...@us...>]

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+