cross VM: fix encell ip

s-expressionists · Sep 1, 2024 · b8e952c · b8e952c
1 parent b007891
commit b8e952c
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/vm-cross.lisp b/vm-cross.lisp
@@ -606,7 +606,8 @@
                     (incf ip))
                    ((#.m:encell)
                     (let ((index (next-code)))
-                      (setf (local index) (make-cell (local index)))))
+                      (setf (local index) (make-cell (local index))))
+                    (incf ip))
                    ((#.m:long)
                     (case (next-code)
                       (#.m:ref (spush (local (next-long))) (incf ip))