fix call-with-continuation-barrier to work with multiple values
svn: r12406
This commit is contained in:
parent
bc2d7a4b6a
commit
17901efeb4
|
@ -5602,7 +5602,7 @@ call_with_continuation_barrier (int argc, Scheme_Object *argv[])
|
|||
{
|
||||
scheme_check_proc_arity("call-with-continuation-barrier", 0, 0, argc, argv);
|
||||
|
||||
return scheme_apply(argv[0], 0, NULL);
|
||||
return scheme_apply_multi(argv[0], 0, NULL);
|
||||
}
|
||||
|
||||
Scheme_Prompt *scheme_get_barrier_prompt(Scheme_Meta_Continuation **_meta_cont,
|
||||
|
|
Loading…
Reference in New Issue
Block a user