Update of /cvsroot/win32forth/win32forth/apps/Setup
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv8301/win32forth/apps/Setup
Modified Files:
Setup.f
Log Message:
gah:Added ACTION-OF (per F200X) and made DEFER@ a (temporary) deprecated synonym. Replaced defer@ by action-of (accept in 486asm). Added DEFER!. Support for extension queries (partial) added to environment.f
Index: Setup.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Setup/Setup.f,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** Setup.f 23 Jul 2006 09:29:50 -0000 1.10
--- Setup.f 28 Sep 2006 10:16:47 -0000 1.11
***************
*** 72,76 ****
: setup-bye ( -- )
&CB-BYE @ &noop &CB-BYE ! \ make BYE a noop; so that destroying the console
! defer@ bye ['] noop is bye \ window will not terminate the setup
_conHndl call DestroyWindow drop \ destroy the console window
regsett count s" console" setsetting \ restore console window size in registry
--- 72,76 ----
: setup-bye ( -- )
&CB-BYE @ &noop &CB-BYE ! \ make BYE a noop; so that destroying the console
! action-of bye ['] noop is bye \ window will not terminate the setup
_conHndl call DestroyWindow drop \ destroy the console window
regsett count s" console" setsetting \ restore console window size in registry
|
