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