evaluate complete

1 files changed, 1 insertions, 0 deletions

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)