Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11581/win32forth/src
Modified Files:
Primutil.f
Log Message:
gah:moved more code to system space
Index: Primutil.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** Primutil.f 6 Jul 2005 08:51:56 -0000 1.8
--- Primutil.f 11 Jul 2005 10:23:35 -0000 1.9
***************
*** 582,585 ****
--- 582,587 ----
initialization-chain chain-add init-handles
+ in-system
+
\ handles can be treated like values, but they are auto zeroed at startup
***************
*** 589,592 ****
--- 591,596 ----
handles-list link, ;
+ in-application
+
:noname ( -- ) \ chain for cleanup
unload-chain do-chain ; is unload-forth \ install in kernel word
|
