diff options
Diffstat (limited to 'libguile/vm-i-scheme.c')
-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 dce90e326..c12c42ba1 100644 --- a/libguile/vm-i-scheme.c +++ b/libguile/vm-i-scheme.c @@ -131,7 +131,8 @@ VM_DEFINE_FUNCTION (141, vectorp, "vector?", 1) VM_DEFINE_FUNCTION (142, cons, "cons", 2) { ARGS2 (x, y); - CONS (x, x, y); + SYNC_BEFORE_GC (); + x = scm_cons (x, y); RETURN (x); } |