-type ParseError <: Exception
- wordName::ASCIIString
-end
-Base.showerror(io::IO, ex::ParseError) = print(io, "Parse error at word: '$(ex.wordName)'.")
-
-DEBUG, DEBUG_CFA = defNewVar("DEBUG", 0)
-
-INTERPRET = defPrimWord("INTERPRET", () -> begin
-
- callPrim(mem[WORD])
-
- wordName = getString(mem[reg.PSP-1], mem[reg.PSP])
- if mem[DEBUG] != 0
- println("... ", replace(replace(wordName, "\004", "EOF"), "\n", "\\n"), " ...")
- end
-
- callPrim(mem[TWODUP])
- callPrim(mem[FIND])