TOWORD: tiny optimization

My mind is getting forthy.
2020-05-13 20:59:00 -04:00 · 2020-05-13 20:59:00 -04:00 · 052d59a3a2
parent 33d37d4ce9
commit 052d59a3a2
2 changed files with 1 additions and 7 deletions
--- a/blk/405
+++ b/blk/405
@ -1,9 +1,3 @@
 : WS? 33 < ;

-: TOWORD
-    BEGIN
-        C< DUP WS? NOT IF EXIT THEN DROP
-    AGAIN
-;
-
-
+: TOWORD 0 ( dummy ) BEGIN DROP C< DUP WS? NOT UNTIL ;
--- a/emul/forth.bin
+++ b/emul/forth.bin