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
|
