1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-20 20:28:06 +11:00
collapseos/blk/363
2020-08-30 20:15:55 -04:00

9 lines
186 B
Plaintext

: (parse) ( a -- n )
_pc IF EXIT THEN
_ph IF EXIT THEN
_pb IF EXIT THEN
_pd IF EXIT THEN
( nothing works )
LIT< (wnf) FIND IF EXECUTE ELSE ABORT THEN
;