[Win32forth-cvs] win32forth/src floadcmdline.f,1.6,1.7

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

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

Modified Files:
	floadcmdline.f 
Log Message:
Jos: Adapted for the current Win32Forth

Index: floadcmdline.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/floadcmdline.f,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** floadcmdline.f	29 Nov 2006 13:22:58 -0000	1.6
--- floadcmdline.f	6 Jan 2007 13:58:57 -0000	1.7
***************
*** 38,42 ****
      cmdline ascii " scan 1 - swap 1+ swap 2dup
      "path-only" temp$ place
!     temp$ zcount  temp$ count "chdir drop count type
      cr cmdline type cr
      1 - "fload ok quit
--- 38,42 ----
      cmdline ascii " scan 1 - swap 1+ swap 2dup
      "path-only" temp$ place
!     temp$ +null  temp$ count 2dup "chdir type
      cr cmdline type cr
      1 - "fload ok quit