collapseos/blk/409

: INTERPRET
    BEGIN
    WORD DUP C@ EOT? IF DROP EXIT THEN
    (find)
    NOT IF (parse) ELSE EXECUTE THEN
    C<? NOT IF LIT< (ok) (find) IF EXECUTE THEN THEN
    AGAIN ;
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			`: INTERPRET`
			`BEGIN`
Make INTERPRET break on ASCII EOT This should allow me to simplify LOAD's exit mechanism on block end. 2020-05-13 21:44:46 -04:00			`WORD DUP C@ EOT? IF DROP EXIT THEN`
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			`(find)`
			`NOT IF (parse) ELSE EXECUTE THEN`
			`C<? NOT IF LIT< (ok) (find) IF EXECUTE THEN THEN`
Move core's blk to xcomp core (low and high) TODO: implement X['] so that I can remove those XCURRENT patterns. 2020-05-13 10:14:23 -04:00			`AGAIN ;`