1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-05 15:20:56 +11:00
collapseos/blk/436
Virgil Dupras 3d908cef3a Move all parsing words to Inner core
This allows us to get rid of the (parse*) indirection.
2020-05-02 21:21:47 -04:00

11 lines
194 B
Plaintext

( Drop RSP until I-2 == INTERPRET. )
: EXIT!
['] INTERPRET ( I )
BEGIN ( I )
DUP ( I I )
R> DROP I 2- @ ( I I a )
= UNTIL
DROP
;