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:
parent
33d37d4ce9
commit
052d59a3a2
8
blk/405
8
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 ;
|
||||
|
BIN
emul/forth.bin
BIN
emul/forth.bin
Binary file not shown.
Loading…
Reference in New Issue
Block a user