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
;
|
