make-array bugfix

* libguile/vm-i-scheme.c (make-array): Fix terrible stack corruption
  bug.

diff --git a/libguile/vm-i-scheme.c b/libguile/vm-i-scheme.c
index f5fc47dd7cce8b4785a81f5e7fc39cac2eb420e8..02dbd5fc8f81666bb15a3da8e9cc4ca8aa5bb398 100644 (file)
--- a/libguile/vm-i-scheme.c
+++ b/libguile/vm-i-scheme.c
@@ -668,7 +668,8 @@ VM_DEFINE_INSTRUCTION (177, make_array, "make-array", 3, -1, 1)
   SYNC_REGISTER ();
   ret = scm_from_contiguous_array (shape, sp - len + 1, len);
   DROPN (len);
-  RETURN (ret);
+  PUSH (ret);
+  NEXT;
 }
 
 /*