return NEXT
end)
+BYE = defPrimWord("BYE", () -> begin
+ println("Bye!")
+ return 0
+end)
+
STATE, STATE_CFA = defNewVar("STATE", 0)
INTERPRET = defWord("INTERPRET",
COMMA, BRANCH, -36,
# No word found, parse number
- BTICK, LIT, COMMA, TRACE, NUMBER, COMMA, BRANCH, -44,
+ NUMBER, BTICK, LIT, COMMA, COMMA, TRACE, BRANCH, -44,
# Interpreting
DUP, FIND, QDUP, ZBRANCH, 7,
INTERPRET, PROMPT,
BRANCH,-4])
-BYE = defPrimWord("BYE", () -> begin
- println("Bye!")
- return 0
-end)
-
INCLUDE = defPrimWord("INCLUDE", () -> begin
pushPS(32)
callPrim(mem[WORD])