[Win32forth-cvs] win32forth/src/lib SUB_DIRS.F,1.4,1.5

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

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
+