From 17901efeb42c2c0a515f544213c9704842d9d8aa Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 12 Nov 2008 12:17:03 +0000
Subject: [PATCH] fix call-with-continuation-barrier to work with multiple
 values

svn: r12406
---
 src/mzscheme/src/fun.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/mzscheme/src/fun.c b/src/mzscheme/src/fun.c
index 78a417ce25..c4354e75f5 100644
--- a/src/mzscheme/src/fun.c
+++ b/src/mzscheme/src/fun.c
@@ -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,