do loops, executor fixes

1 files changed, 6 insertions, 1 deletions

diff --git a/state.cpp b/state.cpp
index 6d056ba..2f1990b 100644
--- a/state.cpp
+++ b/state.cpp
@@ -49,7 +49,12 @@ void State::execute(Addr addr)
 
         do {
             ip += sizeof(Cell);
-            CoreWords::run(dict.read(ip), *this);
+
+            const auto ins = dict.read(ip);
+            if (!CoreWords::run(ins, *this)) {
+                pushr(ip);
+                ip = ins - sizeof(Cell);
+            }
         } while (ip);
     }
 }