[Win32forth-cvs] win32forth/src/kernel fkernel.f,1.42,1.42.2.1

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

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

Modified Files:
      Tag: V612xx
	fkernel.f 
Log Message:
Corrected bug in (LOCAL)

Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.42
retrieving revision 1.42.2.1
diff -C2 -d -r1.42 -r1.42.2.1
*** fkernel.f	28 Apr 2007 10:00:20 -0000	1.42
--- fkernel.f	26 Aug 2008 20:26:10 -0000	1.42.2.1
***************
*** 5216,5221 ****
          THEN ;
  
! : (LOCAL)       ( addr cnt -- )                       \ create name in LOCALS vocab
!                 ?comp
                  -IF                                   \ looks like std vocab header
                    1 +TO PARMS
--- 5216,5220 ----
          THEN ;
  
! |: <LOCAL>      ( addr cnt -- )
                  -IF                                   \ looks like std vocab header
                    1 +TO PARMS
***************
*** 5231,5234 ****
--- 5230,5243 ----
                  THEN ;
  
+ |: {LOCAL}       ( addr cnt -- )                       \ create name in LOCALS vocab
+                 ?comp <LOCAL> ;
+ 
+ : (LOCAL)       ( addr cnt -- )                       \ create name in LOCALS vocab
+                 ?comp
+                 PARMS 0= IF
+                 LOCALS-INIT
+                 FALSE TO LOCDIR                        \ reversed stack order
+                 THEN <LOCAL> ;
+ 
  \ August 2nd, 1999 - 11:13 tjz
  \ modfied versin of a word suggested by Robert Smith, to get a word from the
***************
*** 5258,5262 ****
                2DUP S" \" STR= >R               \ is it { [...] \ ...
                2DUP S" |" STR= R> OR INVERT     \ is it { [...] | ...
!               IF (LOCAL)                       \ no, it's a local
                ELSE 2DROP 0 TO LOCFLG THEN      \ onto uninited locals
          REPEAT
--- 5267,5271 ----
                2DUP S" \" STR= >R               \ is it { [...] \ ...
                2DUP S" |" STR= R> OR INVERT     \ is it { [...] | ...
!               IF {LOCAL}                       \ no, it's a local
                ELSE 2DROP 0 TO LOCFLG THEN      \ onto uninited locals
          REPEAT
***************
*** 5271,5276 ****
  
  : LOCALS|       ( -- )                         \ ANS standard locals
-         LOCALS-INIT
-         FALSE TO LOCDIR                        \ reversed stack order
          BEGIN BLNEXTWORD
                2DUP S" |" STR= INVERT
--- 5280,5283 ----