[Win32forth-cvs] win32forth/src ANSFILE.F,1.8,1.9

[George H. <geo...@us...>]

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

Modified Files:
	ANSFILE.F 
Log Message:
gah:Fixed bug in dir in ansfile

Index: ANSFILE.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/ANSFILE.F,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** ANSFILE.F	22 Sep 2006 10:50:20 -0000	1.8
--- ANSFILE.F	23 Sep 2006 09:49:37 -0000	1.9
***************
*** 310,319 ****
  \ ** If "name" ends in : assume a drive use "name"\*.* for the search pattern. \n
  \ *P The pattern can contain the standard Windows wildcards.
!                 /parse-word dup c@ 0=                \ if not spec given, use *.*
                  IF   s" *.*" pocket place
!                 THEN dup count + 1- c@ [char] : =    \ if just a drive, add \
                  IF   s" \"   pocket +place
!                 THEN dup count + 1- c@ dup [char] \  \ if it ends in a \,
!                      swap [char] / = or              \ or a /, add *.*
                  IF   s" *.*" pocket +place
                  THEN count print-dir-files ;
--- 310,319 ----
  \ ** If "name" ends in : assume a drive use "name"\*.* for the search pattern. \n
  \ *P The pattern can contain the standard Windows wildcards.
!                 /parse-word dup c@ 0=                 \ if not spec given, use *.*
                  IF   s" *.*" pocket place
!                 THEN dup count + 1- c@ [char] : =     \ if just a drive, add \
                  IF   s" \"   pocket +place
!                 THEN dup count + 1- c@ dup [char] \ = \ if it ends in a \,
!                      swap [char] / = or               \ or a /, add *.*
                  IF   s" *.*" pocket +place
                  THEN count print-dir-files ;