allow multiple arguments to shift-captured continuation

svn: r15472
2009-07-17 11:09:07 +00:00 · 2009-07-17 11:09:07 +00:00 · 84f56f8af6
commit 84f56f8af6
parent 0cccedabb4
1 changed files with 2 additions and 2 deletions
--- 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)])])