From ec3b03c4fd2fc9ecad4dd810ba7b6e4766ff286b Mon Sep 17 00:00:00 2001
From: Clyne Sullivan <clyne@bitgloo.com>
Date: Mon, 1 Jan 2024 11:45:50 -0500
Subject: remove addNativeWord

---
 libalee/state.cpp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'libalee/state.cpp')

diff --git a/libalee/state.cpp b/libalee/state.cpp
index ed1562f..cb3a2d3 100644
--- a/libalee/state.cpp
+++ b/libalee/state.cpp
@@ -54,8 +54,10 @@ Error State::execute(Addr addr)
 
         if (context.ip >= Dictionary::Begin) {
             // longjmp will exit this loop.
-            for (;;)
+            for (;;) {
+                context.ip += sizeof(Cell);
                 CoreWords::run(dict.read(context.ip), *this);
+            }
         } else {
             // addr was a CoreWord, all done now.
             context.ip = 0;
-- 
cgit v1.2.3