Update of /cvsroot/win32forth/win32forth/src/lib
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30210/src/lib
Modified Files:
SUB_DIRS.F
Log Message:
Jos: Set search-aborted? to false when a search is started, otherwise it might not always scan a directory tree at all.
Index: SUB_DIRS.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/SUB_DIRS.F,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** SUB_DIRS.F 30 Aug 2005 13:56:57 -0000 1.4
--- SUB_DIRS.F 4 Jan 2006 22:17:38 -0000 1.5
***************
*** 175,178 ****
--- 175,179 ----
: do-files-process ( -- )
+ false to search-aborted?
first-path" "process-directory
BEGIN next-path" dup
***************
*** 181,185 ****
REPEAT 2drop
;
-
INTERNAL
--- 182,185 ----
***************
*** 217,218 ****
--- 217,219 ----
MODULE
+
|
