[Win32forth-cvs] win32forth-stc/src primutil.f,1.15,1.16

[George H. <geo...@us...>]

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)