allow byte indexing

1 files changed, 2 insertions, 2 deletions

diff --git a/executor.cpp b/executor.cpp
index 30d43fc..0309ca7 100644
--- a/executor.cpp
+++ b/executor.cpp
@@ -22,10 +22,10 @@
 int Executor::fullexec(State& state, Addr addr)
 {
     state.pushr(0);
-    state.ip = addr - 1;
+    state.ip = addr - sizeof(Cell);
 
     do {
-        ++state.ip;
+        state.ip += sizeof(Cell);
         CoreWords::run(state.dict.read(state.ip), state);
     } while (state.ip);