From 397ee3e3e61a60bb78f2d29dab61a914b4ac08bb Mon Sep 17 00:00:00 2001
From: Virgil Dupras <hsoft@hardcoded.net>
Date: Sat, 20 Jun 2020 14:13:41 -0400
Subject: [PATCH] Simplify word '

---
 blk/369        |   5 +----
 emul/forth.bin | Bin 6183 -> 6183 bytes
 2 files changed, 1 insertion(+), 4 deletions(-)

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 0caba090f67e1031efd350952ab553e9542f9af8..95273dc47862d916699ee33a829f55ca2ec63c86 100644
GIT binary patch
delta 18
ZcmZ2(u-st7ZEjW(=5z*u%@4TUc>q1{1<3#a

delta 18
ZcmZ2(u-st7ZEn_d1{MaV%@4TUc>q5q1?T_(