2020-05-02 21:21:47 -04:00
|
|
|
: INTERPRET
|
|
|
|
|
BEGIN
|
2020-05-13 21:44:46 -04:00
|
|
|
WORD DUP C@ EOT? IF DROP EXIT THEN
|
2020-05-02 21:21:47 -04:00
|
|
|
(find)
|
|
|
|
|
NOT IF (parse) ELSE EXECUTE THEN
|
|
|
|
|
C<? NOT IF LIT< (ok) (find) IF EXECUTE THEN THEN
|
2020-05-13 10:14:23 -04:00
|
|
|
AGAIN ;
|
2020-05-13 13:24:58 -04:00
|
|
|
|
2020-05-13 10:14:23 -04:00
|
|
|
( Drop RSP until I-2 == INTERPRET. )
|
|
|
|
|
: EXIT!
|
2020-05-13 13:24:58 -04:00
|
|
|
['] INTERPRET ( I )
|
2020-05-13 10:14:23 -04:00
|
|
|
BEGIN ( I )
|
|
|
|
|
DUP ( I I )
|
|
|
|
|
R> DROP I 2- @ ( I I a )
|
|
|
|
|
= UNTIL
|
|
|
|
|
DROP ;
|
