X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=blobdiff_plain;f=src%2Fforth.jl;h=27f9dc36a6ff6686aa19f39d5abe5f8e909a6496;hb=33bbd427e6e9063f0cde9cf027fe2933f7084cb5;hp=d6a10e611cc62e841f780b7bc97404eb26a52d2c;hpb=77664f88335be474b0f4784e4d521e563b459fdc;p=forth.jl.git

diff --git a/src/forth.jl b/src/forth.jl
index d6a10e6..27f9dc3 100644
--- a/src/forth.jl
+++ b/src/forth.jl
@@ -842,6 +842,11 @@ end)
 
 #### VM loop ####
 function runVM()
+    # Start with IP pointing to first instruction of outer interpreter
+    reg.IP = QUIT + 1
+
+    # Primitive processing loop.
+    # Everyting else is simply a consequence of this loop!
     jmp = mem[NEXT]
     while (jmp = callPrim(jmp)) != 0 end
 end