summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2010-01-12 00:21:16 +0100
committerAndy Wingo <wingo@pobox.com>2010-01-12 00:21:16 +0100
commite30f5b7d4032f79eb3ecdb0a11de37486221845c (patch)
treeaf9b4c1053da5c2d7dde81bf090077b32f15fe7c
parente106eca674288661ca6a2b7352ed082cbcda1b12 (diff)
downloadguile-e30f5b7d4032f79eb3ecdb0a11de37486221845c.tar.gz
make-array bugfix
* libguile/vm-i-scheme.c (make-array): Fix terrible stack corruption bug.
-rw-r--r--libguile/vm-i-scheme.c3
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;
}
/*