mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

fix new-frame push in call/cc

Browse source 
* 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.
This commit is contained in:
Andy Wingo 2011-03-19 23:12:40 +01:00
parent f60a7648d5
commit 6f2ff78299
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/vm-i-system.c
View file

@ -1179,7 +1179,7 @@ VM_DEFINE_INSTRUCTION (65, call_cc, "call/cc", 0, 1, 1)
cont = scm_i_make_continuation (&first, vm, vm_cont); cont = scm_i_make_continuation (&first, vm, vm_cont);
if (first) if (first)
{ {
PUSH ((SCM)fp); /* dynamic link */ PUSH (0); /* dynamic link */
PUSH (0); /* mvra */ PUSH (0); /* mvra */
PUSH (0); /* ra */ PUSH (0); /* ra */
PUSH (proc); PUSH (proc);