1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-26 03:38:06 +11:00
collapseos/blk/439
2020-05-13 08:50:07 -04:00

13 lines
296 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
;
: (ok) SPC ." ok" NL ;
: (uflw) ABORT" stack underflow" ;
: (wnf) (print) SPC ABORT" word not found" ;