alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix bug with 10 and 41.

Browse Source
This commit is contained in:
Brad Nelson
2024-11-07 19:00:33 -08:00
parent 1316a3144e
commit ffd0226fdb
4 changed files with 5 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
common/boot.fs
View File

@ -67,7 +67,7 @@ create NEXT ' donext @ ' next ! : next -1 nest-depth +! ['] next , , ; immed
;
( Define a recognizer stack. )
create RECSTACK 0 , 10 cells allot
create RECSTACK 0 , bl 2/ ( 16 no numbers yet ) cells allot
: +RECOGNIZER ( xt -- ) 1 RECSTACK +! RECSTACK dup @ cells + ! ;
: -RECOGNIZER ( -- ) -1 RECSTACK +! ;
: GET-RECOGNIZERS ( -- xtn..xt1 n )