Make notfound work right with word name.

2024-04-20 16:08:37 -07:00
parent 9477781530
commit f08769855d
2 changed files with 2 additions and 2 deletions
--- a/common/boot.fs
+++ b/common/boot.fs
@ -69,7 +69,7 @@ create NEXT ' donext @ ' next !   : next   -1 nest-depth +! ['] next , , ; immed
    dup RECTYPE-NONE <> if rdrop rdrop rdrop rdrop exit then
    drop r> r> r>
  then next
-  drop 2drop RECTYPE-NONE
+  drop RECTYPE-NONE
 ;

 ( Define a recognizer stack. )