[Win32forth-cvs] win32forth/src/kernel fkernel.f,1.65,1.66

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

Update of /cvsroot/win32forth/win32forth/src/kernel
In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv8689/kernel

Modified Files:
	fkernel.f 
Log Message:
Fixed bug with RECURSE used with :NONAME

Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.65
retrieving revision 1.66
diff -C2 -d -r1.65 -r1.66
*** fkernel.f	15 May 2010 21:04:43 -0000	1.65
--- fkernel.f	25 Jun 2010 21:24:02 -0000	1.66
***************
*** 4508,4519 ****
                  PARMS-INIT DOCOL COMPILE, !CSP ] ;
  
  : :NONAME       ( -- xt )       \ start a headerless colon definition
!                 ALIGN HERE :COLONDEF ;
  
  : :             ( -<name>- )    \ Forth's primary function defining word
!                 HEADER HIDE :COLONDEF ;
  
  : RECURSE       ( -- )          \ cause current definition to execute itself
!                 ?COMP LAST @ NAME> COMPILE, ; IMMEDIATE
  
  
--- 4508,4521 ----
                  PARMS-INIT DOCOL COMPILE, !CSP ] ;
  
+ | VARIABLE ANON ANON OFF
+ 
  : :NONAME       ( -- xt )       \ start a headerless colon definition
!                 ALIGN HERE DUP ANON ! :COLONDEF ;
  
  : :             ( -<name>- )    \ Forth's primary function defining word
!                 HEADER HIDE ANON OFF :COLONDEF ;
  
  : RECURSE       ( -- )          \ cause current definition to execute itself
!                 ?COMP ANON @ DUP 0= IF DROP LAST @ NAME> THEN COMPILE, ; IMMEDIATE
  
  
***************
*** 5955,5959 ****
                  FALSE TO ?:M
                          ( -- f1 ) THROW_METH;M ?THROW \ Methods must END in ;M
!                 ?CSP REVEAL
                  PARMS
                  IF      COMPILE UNNESTP
--- 5957,5961 ----
                  FALSE TO ?:M
                          ( -- f1 ) THROW_METH;M ?THROW \ Methods must END in ;M
!                 ?CSP ANON @  0= IF REVEAL THEN ANON OFF
                  PARMS
                  IF      COMPILE UNNESTP