allow multiple arguments to shift-captured continuation

svn: r15472 original commit: 84f56f8af6e290f70de521b07c709065610fd1d2
2009-07-17 11:09:07 +00:00 · 2009-07-17 11:09:07 +00:00 · 7d736c008a
commit 7d736c008a
parent 65dbe29cbf
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)])])