diff options
author | Andy Wingo <wingo@pobox.com> | 2011-03-19 23:12:40 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2011-03-19 23:12:40 +0100 |
commit | 6f2ff78299f54b1fde9f2ff85cbabf876bea85b8 (patch) | |
tree | 94efcadea920ce5cb3318a87c1d22b2148b24aa7 /libguile/vm-i-system.c | |
parent | f60a7648d5926555c7760364a6fbb7dc0cf60720 (diff) | |
download | guile-6f2ff78299f54b1fde9f2ff85cbabf876bea85b8.tar.gz |
fix new-frame push in call/cc
* libguile/vm-i-system.c (call/cc): Whoops, fix the new-frame push
here. A little birdie tells me a test case is coming soon.
Diffstat (limited to 'libguile/vm-i-system.c')
-rw-r--r-- | libguile/vm-i-system.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/vm-i-system.c b/libguile/vm-i-system.c index 980d22afe..71c5281c8 100644 --- a/libguile/vm-i-system.c +++ b/libguile/vm-i-system.c @@ -1179,7 +1179,7 @@ VM_DEFINE_INSTRUCTION (65, call_cc, "call/cc", 0, 1, 1) cont = scm_i_make_continuation (&first, vm, vm_cont); if (first) { - PUSH ((SCM)fp); /* dynamic link */ + PUSH (0); /* dynamic link */ PUSH (0); /* mvra */ PUSH (0); /* ra */ PUSH (proc); |