From: George H. <geo...@us...> - 2008-04-03 19:38:38
|
Update of /cvsroot/win32forth/win32forth/src/kernel In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv14508/win32forth/src/kernel Modified Files: fkernel.f Log Message: gah: Modified MAIN to not evaluate commandline in turnkeyed applications Index: fkernel.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v retrieving revision 1.43 retrieving revision 1.44 diff -C2 -d -r1.43 -r1.44 *** fkernel.f 31 Oct 2007 18:51:39 -0000 1.43 --- fkernel.f 3 Apr 2008 19:38:33 -0000 1.44 *************** *** 5554,5558 **** IF BYE ( fatal error, exit) THEN ! &EXCEPT @ 0= IF CMDLINE ['] EVALUATE CATCH DUP IF DUP 1+ IF MESSAGE THEN --- 5554,5558 ---- IF BYE ( fatal error, exit) THEN ! &EXCEPT @ 0= sys-size and IF CMDLINE ['] EVALUATE CATCH DUP IF DUP 1+ IF MESSAGE THEN |