suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Removed unused parameters to grab_continuation

Browse Source 
svn: r17996
This commit is contained in:
Kevin Tew 2010-02-05 17:28:00 +00:00
parent ccbe173d08
commit ce7c7eac7b
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/mzscheme/src/fun.c
View File

@ -5058,9 +5058,9 @@ call_cc (int argc, Scheme_Object *argv[])
static Scheme_Cont *grab_continuation(Scheme_Thread *p, int for_prompt, int composable,
Scheme_Object *prompt_tag,
Scheme_Cont *sub_cont, Scheme_Prompt *prompt,
Scheme_Meta_Continuation *prompt_cont, MZ_MARK_POS_TYPE prompt_pos,
Scheme_Prompt *barrier_prompt, Scheme_Prompt *effective_barrier_prompt,
Scheme_Meta_Continuation *barrier_cont, MZ_MARK_POS_TYPE barrier_pos)
Scheme_Meta_Continuation *prompt_cont,
Scheme_Prompt *effective_barrier_prompt
)
{
Scheme_Cont *cont;
@ -5697,8 +5697,7 @@ internal_call_cc (int argc, Scheme_Object *argv[])
}
cont = grab_continuation(p, 0, composable, prompt_tag, sub_cont,
prompt, prompt_cont, prompt_pos,
barrier_prompt, effective_barrier_prompt, barrier_cont, barrier_pos);
prompt, prompt_cont, effective_barrier_prompt);
scheme_zero_unneeded_rands(p);
@ -6104,7 +6103,7 @@ static Scheme_Object *compose_continuation(Scheme_Cont *cont, int exec_chain,
/* Grab a continuation so that we capture the current Scheme stack,
etc.: */
saved = grab_continuation(p, 1, 0, NULL, NULL, NULL, NULL, 0, NULL, NULL, NULL, 0);
saved = grab_continuation(p, 1, 0, NULL, NULL, NULL, NULL, NULL);
if (p->meta_prompt)
saved->prompt_stack_start = p->meta_prompt->stack_boundary;