mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-05 19:30:56 +11:00
3d908cef3a
This allows us to get rid of the (parse*) indirection.
13 lines
231 B
Plaintext
13 lines
231 B
Plaintext
( The NOT is to normalize the negative/positive numbers to 1
|
|
or 0. Hadn't we wanted to normalize, we'd have written:
|
|
32 CMP 1 - )
|
|
: WS? 33 CMP 1+ NOT ;
|
|
|
|
: TOWORD
|
|
BEGIN
|
|
C< DUP WS? NOT IF EXIT THEN DROP
|
|
AGAIN
|
|
;
|
|
|
|
|