1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-28 09:38:05 +11:00
collapseos/blk/363
Virgil Dupras 8f3891f7d3 Move EMIT to low core
This allows us to remove one layer of indirection in (wnf). This is
possible now that EMIT is a switch word.
2020-10-28 16:34:49 -04:00

9 lines
149 B
Plaintext

: (parse) ( a -- n )
_pc IF EXIT THEN
_ph IF EXIT THEN
_pb IF EXIT THEN
_pd IF EXIT THEN
( nothing works )
(wnf)
;