From 78507c65c4ab649bbb0655d9485bf2f6e712af5c Mon Sep 17 00:00:00 2001 From: Clyne Sullivan Date: Thu, 9 Feb 2023 20:15:16 -0500 Subject: implement if and then --- parser.cpp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'parser.cpp') diff --git a/parser.cpp b/parser.cpp index 99cbc8b..19ef34a 100644 --- a/parser.cpp +++ b/parser.cpp @@ -39,7 +39,7 @@ ParseStatus Parser::parse(State& state, std::string_view& str) break; case Pass::Colon: state.pass = Pass::None; - state.compiling = true; + state.compiling = true; state.dict.addDefinition(sub); break; case Pass::Constant: @@ -57,9 +57,9 @@ ParseStatus Parser::parse(State& state, std::string_view& str) } else { if (auto i = CoreWords::findi(sub); i >= 0) { if (state.compiling) - state.dict.add(i); - if (!state.compiling || sub.front() == ';') - CoreWords::run(i, state); + state.dict.add(i & ~CoreWords::CoreImmediate); + if (!state.compiling || (i & CoreWords::CoreImmediate)) + CoreWords::run(i & ~CoreWords::CoreImmediate, state); } else if (auto j = state.dict.find(sub); j > 0) { auto e = state.dict.getexec(j); -- cgit v1.2.3