aboutsummaryrefslogtreecommitdiffstats
path: root/libalee/state.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'libalee/state.cpp')
-rw-r--r--libalee/state.cpp4
1 files changed, 3 insertions, 1 deletions
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;