diff --git a/blk/369 b/blk/369 index b482fb3..882d1a9 100644 --- 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 ) diff --git a/emul/forth.bin b/emul/forth.bin index 0caba09..95273dc 100644 Binary files a/emul/forth.bin and b/emul/forth.bin differ