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/io.fs
+++ b/common/io.fs
@ -57,7 +57,7 @@ variable hld

 ( Better Errors )
 : 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 !

 ( Abort )