From 84f56f8af6e290f70de521b07c709065610fd1d2 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 17 Jul 2009 11:09:07 +0000
Subject: [PATCH] allow multiple arguments to shift-captured continuation

svn: r15472
---
 collects/mzlib/control.ss | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/collects/mzlib/control.ss b/collects/mzlib/control.ss
index 59576fd5b2..c01433d871 100644
--- a/collects/mzlib/control.ss
+++ b/collects/mzlib/control.ss
@@ -139,10 +139,10 @@
                    (abort-cc
                     tag
                     (lambda () 
-                      (f (lambda (val)
+                      (f (lambda vals
                            (call-with-continuation-prompt
                             (lambda ()
-                              (k val))
+                              (apply k vals))
                             tag
                             inserted-handler))))))
                  tag)])])