[Win32forth-cvs] win32forth/src/kernel fkernel.f,1.52,1.53

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

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

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

Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.52
retrieving revision 1.53
diff -C2 -d -r1.52 -r1.53
*** fkernel.f	21 Aug 2008 23:39:37 -0000	1.52
--- fkernel.f	23 Aug 2008 19:13:32 -0000	1.53
***************
*** 5290,5295 ****
          THEN ;
  
! : (LOCAL)       ( addr cnt -- )                       \ create name in LOCALS vocab
!                 ?comp
                  -IF                                   \ looks like std vocab header
                    1 +TO PARMS
--- 5290,5294 ----
          THEN ;
  
! |: <LOCAL>      ( addr cnt -- )
                  -IF                                   \ looks like std vocab header
                    1 +TO PARMS
***************
*** 5305,5308 ****
--- 5304,5318 ----
                  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
***************
*** 5332,5336 ****
                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
--- 5342,5346 ----
                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
***************
*** 5345,5350 ****
  
  : LOCALS|       ( -- )                         \ ANS standard locals
-         LOCALS-INIT
-         FALSE TO LOCDIR                        \ reversed stack order
          BEGIN BLNEXTWORD
                2DUP S" |" STR= INVERT
--- 5355,5358 ----