TOWORD: tiny optimization
My mind is getting forthy.
Tento commit je obsažen v:
rodič
33d37d4ce9
revize
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ární
emul/forth.bin
binární
emul/forth.bin
Binární soubor nebyl zobrazen.
Načítá se…
Odkázat v novém úkolu
Zablokovat Uživatele