[Win32forth-cvs] win32forth-610old/src/kernel fkernel.f,1.6,1.7

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

Update of /cvsroot/win32forth/win32forth-610old/src/kernel
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv18140/win32forth-610old/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-610old/src/kernel/fkernel.f,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** fkernel.f	25 Feb 2006 08:38:05 -0000	1.6
--- fkernel.f	24 Aug 2006 11:44:07 -0000	1.7
***************
*** 4279,4286 ****
  \ ** 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
  
  
--- 4279,4286 ----
  \ ** 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