parse: be a bit more graceful on parsing meta-failure

2020-04-09 08:27:14 -04:00 · 2020-04-09 08:27:14 -04:00 · 6c48c1b53c
commit 6c48c1b53c
parent b69ca4488e
1 changed files with 1 additions and 1 deletions
--- a/forth/parse.fs
+++ b/forth/parse.fs
@ -80,7 +80,7 @@
    (parseb) IF EXIT THEN
    (parsed) IF EXIT THEN
    ( nothing works )
-    LIT< (wnf) (find) DROP EXECUTE
+    LIT< (wnf) (find) IF EXECUTE ELSE ABORT THEN
 ;

 ' (parse) (parse*) !