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
|
