[Win32forth-cvs] win32forth/src/kernel fkernel.f,1.35,1.36

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

Update of /cvsroot/win32forth/win32forth/src/kernel
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv4195/win32forth/src/kernel

Modified Files:
	fkernel.f 
Log Message:
gah:Updated documentation and tidy up.

Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.35
retrieving revision 1.36
diff -C2 -d -r1.35 -r1.36
*** fkernel.f	24 Aug 2006 11:35:09 -0000	1.35
--- fkernel.f	25 Aug 2006 12:54:02 -0000	1.36
***************
*** 4300,4304 ****
--- 4300,4306 ----
  
  0 value slfactor            \ adjust this to slow down loading
+ 
  : SLOW ( -- ) slfactor ms start/stop ; \ set 'slfactor' to slow down loading
+ 
  : HEADER        ( -<name>- )      \ build a header
                  BL WORD COUNT (HEADER) slow ; \ self-call the header word
***************
*** 4306,4321 ****
  in-system
  
! \ Useage is  ' OLD ALIAS NEW See also SYNONYM for an immediate version
! : ALIAS         ( xt -<name>- ) \ make another 'name' for 'xt'
                  HEADER CFAPTR! ;
  
! : SYNONYM       ( -<newname> <oldname>- )
! \ *p Creates an alias of a word that will be immediate if the original word was
  \ ** immediate.  The word order is the same as when making a colon definition.
! \ ** Bug: View <oldname> goes to the synonym instead.
                  HEADER hide
                  DEFINED DUP ?MISSING
!                 1 = IF IMMEDIATE THEN       \ make synonym immediate
!                 CFAPTR! reveal ;                   \ set the cfa pointer of header
  
  
--- 4308,4331 ----
  in-system
  
! : ALIAS         ( xt -<name>- )            \ W32F
! \ *G Creates an alias of a word that is non-imediate (unless IMMEDIATE is used).
! \ *P NOTE View of either name can go to the synonym instead (it depends which name
! \ ** is found first in a full dictionary search).
                  HEADER CFAPTR! ;
  
! : SYNONYM       ( -<newname> <oldname>- )  \ 200X
! \ *G Creates an alias of a word that will be immediate if the original word was
  \ ** immediate.  The word order is the same as when making a colon definition.
! \ ** <newname> is hidden during the search for <oldname> so that an alias of an
! \ ** existing word in another vocabulary can be created (NOTE versions prior to
! \ ** V6.10.05 and V6.11.10 incorrectly created a void definition when <newname>
! \ ** was found in the search. If <oldname> is not found then <newname> remains
! \ ** hidden (only since V6.10.05 and V6.11.10).
! \ *P NOTE View of either name can go to the synonym instead (it depends which name
! \ ** is found first in a full dictionary search).
                  HEADER hide
                  DEFINED DUP ?MISSING
!                 1 = IF IMMEDIATE THEN       \ make synonym immediate if original is
!                 CFAPTR! reveal ;            \ set the cfa pointer of header