TOWORD: tiny optimization

My mind is getting forthy.
This commit is contained in:
Virgil Dupras 2020-05-13 20:59:00 -04:00
parent 33d37d4ce9
commit 052d59a3a2
2 changed files with 1 additions and 7 deletions

View File

@ -1,9 +1,3 @@
: WS? 33 < ; : WS? 33 < ;
: TOWORD : TOWORD 0 ( dummy ) BEGIN DROP C< DUP WS? NOT UNTIL ;
BEGIN
C< DUP WS? NOT IF EXIT THEN DROP
AGAIN
;

Binary file not shown.