Simplify word '

2020-06-20 14:13:41 -04:00 · 2020-06-20 14:13:41 -04:00 · 397ee3e3e6
parent 1536434666
commit 397ee3e3e6
2 changed files with 1 additions and 4 deletions
--- a/blk/369
+++ b/blk/369
@ -1,8 +1,5 @@
 : '? WORD FIND ;
-: '
-    '? (?br) [ 4 , ] EXIT
-    LIT< (wnf) FIND DROP EXECUTE
-;
+: ' '? NOT IF LIT< (wnf) FIND DROP EXECUTE THEN ;
 : ROLL
    ?DUP NOT IF EXIT THEN
    1+ DUP PICK          ( n val )
--- a/emul/forth.bin
+++ b/emul/forth.bin