Update of /cvsroot/win32forth/win32forth-stc/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv2051/win32forth-stc/src
Modified Files:
primutil.f
Log Message:
gah:Added ALLOT-TO to primutil and Win32Help.f to lib
Index: primutil.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/primutil.f,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -d -r1.15 -r1.16
*** primutil.f 30 Oct 2006 09:15:14 -0000 1.15
--- primutil.f 31 Oct 2006 11:33:31 -0000 1.16
***************
*** 277,284 ****
\ needed by array.f
! : reserve ( n1 )
! \ *G Allot some bytes initialized to NULL.
0max here over allot swap erase ;
\ ------------------------------------------------------------------------
\ Some case insensitive version of search and compare
--- 277,289 ----
\ needed by array.f
! : reserve ( n -- )
! \ *G Allot n bytes initialized to NULL.
0max here over allot swap erase ;
+ : allot-to ( n -- )
+ \ *G Extend the dictionary space of most recent word compiled to length n.
+ last @ name>xt >body here swap - - dup 0<
+ abort" buffer is already too long!" allot ;
+
\ ------------------------------------------------------------------------
\ Some case insensitive version of search and compare
***************
*** 344,348 ****
: init-system-locks-off ( -- )
\ *G Set all the system deferred words for locking to noops. This is done automatically
! \ ** by the system at start-up so code that uses it will work correctly before the locks
\ ** are initialised.
['] noop is (controllock)
--- 349,353 ----
: init-system-locks-off ( -- )
\ *G Set all the system deferred words for locking to noops. This is done automatically
! \ ** by the system at start-up so code that uses them will work correctly before the locks
\ ** are initialised.
['] noop is (controllock)
|
