diff options
-rw-r--r-- | libguile/vm-i-scheme.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/libguile/vm-i-scheme.c b/libguile/vm-i-scheme.c index f5fc47dd7..02dbd5fc8 100644 --- 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; } /* |