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

patch call-with-continuation-barrier

Browse Source 
svn: r423
This commit is contained in:
Matthew Flatt 2005-07-21 20:33:56 +00:00
parent bec7b923ad
commit 52683f888f
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2822,10 +2822,9 @@ void scheme_takeover_stacks(Scheme_Thread *p)
static Scheme_Object *
call_with_continuation_barrier (int argc, Scheme_Object *argv[])
{
scheme_check_proc_arity("call-with-continuation-barrier", 1,
0, argc, argv);
scheme_check_proc_arity("call-with-continuation-barrier", 0, 0, argc, argv);
return scheme_apply(argv[0], 1, NULL);
return scheme_apply(argv[0], 0, NULL);
}