1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-26 06:38:06 +11:00
collapseos/blk/363
Virgil Dupras 68dd800bd1 Remove LIT< in favor of LIT" exclusively
This duplicated feature existed because of bootstrapping issues
with LIT", but again, with careful threading, we can clean things
up.

We can now have a proper "Collapse OS" prompt :)
2020-09-19 18:51:29 -04:00

11 lines
221 B
Plaintext

: (wnf) LIT" (print)" FIND DROP EXECUTE
LIT" word not found" ERR ;
: (parse) ( a -- n )
_pc IF EXIT THEN
_ph IF EXIT THEN
_pb IF EXIT THEN
_pd IF EXIT THEN
( nothing works )
(wnf)
;