fixed bug in debug handler

svn: r5246
2007-01-07 20:13:44 +00:00 · 2007-01-07 20:13:44 +00:00 · 58444b904d
commit 58444b904d
parent 1e1ae2714a
1 changed files with 6 additions and 2 deletions
--- a/collects/drscheme/private/debug.ss
+++ b/collects/drscheme/private/debug.ss
@ -198,7 +198,11 @@ profile todo:
                                 (apply values last-one)]
                                [else 
                                 (i-loop (cdr exprs)
-                                         (call-with-values (λ () (loop (car exprs)))
+                                         (call-with-values 
+                                          (λ () 
+                                            (call-with-continuation-prompt
+                                             (λ ()
+                                               (loop (car exprs)))))
                                          list))]))
                            
                            ;; the version below behaves properly wrt continuations