mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-27 14:18:06 +11:00
TOWORD: tiny optimization
My mind is getting forthy.
This commit is contained in:
parent
33d37d4ce9
commit
052d59a3a2
8
blk/405
8
blk/405
@ -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
|
|
||||||
;
|
|
||||||
|
|
||||||
|
|
||||||
|
BIN
emul/forth.bin
BIN
emul/forth.bin
Binary file not shown.
Loading…
Reference in New Issue
Block a user