[Win32forth-cvs] win32forth/src/lib SUB_DIRS.F,1.7,1.8

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

Update of /cvsroot/win32forth/win32forth/src/lib
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv16823/src/lib

Modified Files:
	SUB_DIRS.F 
Log Message:
Jos: Depreciated the old path-ptr and replaced path-ptr  by search-path

Index: SUB_DIRS.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/SUB_DIRS.F,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** SUB_DIRS.F	8 Jul 2006 19:59:50 -0000	1.7
--- SUB_DIRS.F	26 Aug 2006 15:25:32 -0000	1.8
***************
*** 177,181 ****
  
  
! : (do-files-process ( path-ptr -- )
        >r false to search-aborted?
        r@ first-path" "process-directory
--- 177,181 ----
  
  
! : (do-files-process ( path -- )
        >r false to search-aborted?
        r@ first-path" "process-directory
***************
*** 187,191 ****
  
  : do-files-process ( -- )  \ In the Forth-part
!         path-ptr   (do-files-process
          ;
  
--- 187,191 ----
  
  : do-files-process ( -- )  \ In the Forth-part
!         search-path   (do-files-process
          ;