[Win32forth-cvs] win32forth/src/kernel fkernel.f,1.40,1.41

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

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

Modified Files:
	fkernel.f 
Log Message:
gah:Modified Locals-init to not check stack depth to fix bug reported by Elko Tchernev.

Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.40
retrieving revision 1.41
diff -C2 -d -r1.40 -r1.41
*** fkernel.f	10 Oct 2006 11:11:25 -0000	1.40
--- fkernel.f	30 Oct 2006 12:01:43 -0000	1.41
***************
*** 5194,5198 ****
  
  |: LOCALS-INIT ( -- )                          \ init, check if locals validly used
!         ?csp                                   \ make sure not used inside control structures
          ?comp                                  \ must be compiling
          PARMS THROW_LOCALSTWICE ?THROW         \ and not used before in the definition
--- 5194,5198 ----
  
  |: LOCALS-INIT ( -- )                          \ init, check if locals validly used
! \        ?csp                                   \ make sure not used inside control structures
          ?comp                                  \ must be compiling
          PARMS THROW_LOCALSTWICE ?THROW         \ and not used before in the definition