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

Added into example.

Browse Source
This commit is contained in:
Brad Nelson
2024-11-08 19:12:02 -08:00
parent 51c224affd
commit af641b0578
2 changed files with 43 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
common/boot.fs
View File

@ -50,7 +50,7 @@ create FOR ' >r @ ' for ! : for 1 nest-depth +! ['] for , here ; immed
create NEXT ' donext @ ' next ! : next -1 nest-depth +! ['] next , , ; immediate
( Define a data type for Recognizers. )
: RECTYPE: ( xt1 xt2 xt3 "name" -- ) CREATE , , , ;
: RECTYPE: ( xt-interpret xt-compile xt-postpone "name" -- ) CREATE , , , ;
: do-notfound ( a n -- ) -1 'notfound @ execute ;
' do-notfound ' do-notfound ' do-notfound RECTYPE: RECTYPE-NONE
' execute ' , ' postpone, RECTYPE: RECTYPE-WORD