From 52683f888f4e057b0991ca9dc78d3e5b0283cd60 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 21 Jul 2005 20:33:56 +0000 Subject: [PATCH] patch call-with-continuation-barrier svn: r423 --- src/mzscheme/src/fun.c | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/src/mzscheme/src/fun.c b/src/mzscheme/src/fun.c index bed288267d..a4688f50d3 100644 --- a/src/mzscheme/src/fun.c +++ b/src/mzscheme/src/fun.c @@ -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); }