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

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

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

Modified Files:
	SUB_DIRS.F 
Log Message:
Jos: Bugfix

Index: SUB_DIRS.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/SUB_DIRS.F,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** SUB_DIRS.F	8 Jul 2006 17:50:33 -0000	1.6
--- SUB_DIRS.F	8 Jul 2006 19:59:50 -0000	1.7
***************
*** 219,225 ****
  : sdir ( path count file-spec count flag-subdir - )
          to sub-dirs?
!         mask-buf place mask-buf +NULL
!         sdir-path place sdir-path +NULL
!         (do-files-process
  ;
  
--- 219,225 ----
  : sdir ( path count file-spec count flag-subdir - )
          to sub-dirs?
!         mask-buf place    mask-buf +NULL
!         sdir-path place   sdir-path +NULL
!         sdir-path (do-files-process
  ;