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 ----
|