Update of /cvsroot/win32forth/win32forth/src/kernel
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv14314/win32forth/src/kernel
Modified Files:
fkernel.f
Log Message:
gah:Modified SYNONYM to hide word until old word is found or on error
Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.34
retrieving revision 1.35
diff -C2 -d -r1.34 -r1.35
*** fkernel.f 13 Aug 2006 07:58:59 -0000 1.34
--- fkernel.f 24 Aug 2006 11:35:09 -0000 1.35
***************
*** 4314,4321 ****
\ ** immediate. The word order is the same as when making a colon definition.
\ ** Bug: View <oldname> goes to the synonym instead.
! HEADER
DEFINED DUP ?MISSING
1 = IF IMMEDIATE THEN \ make synonym immediate
! CFAPTR! ; \ set the cfa pointer of header
--- 4314,4321 ----
\ ** 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
|
