diff options
author | Andy Wingo <wingo@pobox.com> | 2010-01-12 00:21:16 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-01-12 00:21:16 +0100 |
commit | e30f5b7d4032f79eb3ecdb0a11de37486221845c (patch) | |
tree | af9b4c1053da5c2d7dde81bf090077b32f15fe7c | |
parent | e106eca674288661ca6a2b7352ed082cbcda1b12 (diff) | |
download | guile-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.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; } /* |