[Win32forth-cvs] win32forth/src Primutil.f,1.38,1.39

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

Update of /cvsroot/win32forth/win32forth/src
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv8262

Modified Files:
	Primutil.f 
Log Message:
Added a comment to IMPORT: about usage.

Index: Primutil.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v
retrieving revision 1.38
retrieving revision 1.39
diff -C2 -d -r1.38 -r1.39
*** Primutil.f	24 Sep 2008 21:49:57 -0000	1.38
--- Primutil.f	20 Oct 2008 21:18:42 -0000	1.39
***************
*** 223,228 ****
                  r> to sys-warning? throw ; immediate
  
! : allot-to      ( n1 -- )       \ extend the dictionary space of most recent
!                                 \ word compile to length n1
                  last @ name> >body here swap - - dup 0<
                  abort" buffer is already too long!" allot ;
--- 223,228 ----
                  r> to sys-warning? throw ; immediate
  
! : allot-to      ( n1 -- )
! \ *G Extend the dictionary space of most recent word compile to length n1.
                  last @ name> >body here swap - - dup 0<
                  abort" buffer is already too long!" allot ;
***************
*** 232,235 ****
--- 232,239 ----
  
  : import:       ( c "name" -- )
+ \ *G Create a word "name" in the current vocabulary that when it executes reverses the top c items on
+ \ ** the data stack and then executes the DLL function "name".
+ \ *P \b NOTE \d this word also executes PROC, which can be aliased with AS that behaves the same as if
+ \ ** c PROC "name" has been executed.
  \in-system-ok   >IN @ >r dup proc r> >IN ! \ make sure proc exists before doing create
                  header DoImport compile,