summaryrefslogtreecommitdiff
path: root/libguile/vm-i-system.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2011-03-19 23:12:40 +0100
committerAndy Wingo <wingo@pobox.com>2011-03-19 23:12:40 +0100
commit6f2ff78299f54b1fde9f2ff85cbabf876bea85b8 (patch)
tree94efcadea920ce5cb3318a87c1d22b2148b24aa7 /libguile/vm-i-system.c
parentf60a7648d5926555c7760364a6fbb7dc0cf60720 (diff)
downloadguile-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.c2
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);