fix debug eval handler's propagation of prompt aborts

svn: r5980
2007-04-19 03:24:35 +00:00 · 2007-04-19 03:24:35 +00:00 · 2b21cf2252
commit 2b21cf2252
parent a420febb1b
1 changed files with 4 additions and 2 deletions
--- a/collects/drscheme/private/debug.ss
+++ b/collects/drscheme/private/debug.ss
@ -210,8 +210,10 @@ profile todo:
                                             (λ () (loop (car exprs)))
                                             (default-continuation-prompt-tag)
                                             (λ args
-                                               (abort-current-continuation 
-                                                (default-continuation-prompt-tag)))))
+                                               (apply
+                                                abort-current-continuation 
+                                                (default-continuation-prompt-tag)
+                                                args))))
                                          list))]))]
                           [_else 
                            ;; Not `begin', so proceed with normal expand and eval