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