reurn mem[NEXT]
end)
+HIDE = defWord("HIDE",
+ [WORD,
+ FIND,
+ HIDDEN,
+ EXIT])
+
COLON = defWord(":",
[WORD,
CREATE,
LBRAC,
EXIT], flags=F_IMMEDIATE)
+IMMEDIATE = defPrim("IMMEDIATE", () -> begin
+ lenAndFlagsAddr = mem[LATEST] + 1
+ mem[lenAndFlagsAddr] = mem[lenAndFlagsAddr] $ F_IMMEDIATE
+ return mem[NEXT]
+end, flags=F_IMMEDIATE)
+
#### VM loop ####
function runVM()
jmp = NEXT