From a51428cff0b7d16e7e0b5e5bfd05c47ab55e4fa2 Mon Sep 17 00:00:00 2001 From: Clyne Sullivan Date: Sat, 4 Mar 2023 07:02:22 -0500 Subject: evaluate complete --- parser.cpp | 1 + 1 file changed, 1 insertion(+) (limited to 'parser.cpp') diff --git a/parser.cpp b/parser.cpp index 22c2cc3..44b5cec 100644 --- a/parser.cpp +++ b/parser.cpp @@ -26,6 +26,7 @@ int Parser::parse(State& state, const char *str) { auto addr = Dictionary::Input; state.dict.write(addr, 0); + state.dict.write(Dictionary::SourceLen, std::strlen(str)); addr += sizeof(Cell); while (*str) -- cgit v1.2.3