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

Make notfound work right with word name.

Browse Source
This commit is contained in:
Brad Nelson
2024-04-20 16:08:37 -07:00
parent 9477781530
commit f08769855d
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
common/boot.fs
View File

@ -69,7 +69,7 @@ create NEXT ' donext @ ' next ! : next -1 nest-depth +! ['] next , , ; immed
dup RECTYPE-NONE <> if rdrop rdrop rdrop rdrop exit then dup RECTYPE-NONE <> if rdrop rdrop rdrop rdrop exit then
drop r> r> r> drop r> r> r>
then next then next
drop 2drop RECTYPE-NONE drop RECTYPE-NONE
; ;
( Define a recognizer stack. ) ( Define a recognizer stack. )

2
common/io.fs
View File

@ -57,7 +57,7 @@ variable hld
( Better Errors ) ( Better Errors )
: notfound ( a n n -- ) : notfound ( a n n -- )
if cr ." ERROR: " type ." NOT FOUND!" cr -1 throw then ; dup if cr ." ERROR: " >r type r> ." NOT FOUND!" cr throw else drop then ;
' notfound 'notfound ! ' notfound 'notfound !
( Abort ) ( Abort )