1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-27 12:08:07 +11:00

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 < ;
: TOWORD
BEGIN
C< DUP WS? NOT IF EXIT THEN DROP
AGAIN
;
: TOWORD 0 ( dummy ) BEGIN DROP C< DUP WS? NOT UNTIL ;

Binary file not shown.