suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixed bug in debug handler

Browse Source 
svn: r5246
This commit is contained in:
Robby Findler 2007-01-07 20:13:44 +00:00
parent 1e1ae2714a
commit 58444b904d
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/drscheme/private/debug.ss
View File

@ -198,8 +198,12 @@ profile todo:
(apply values last-one)] (apply values last-one)]
[else [else
(i-loop (cdr exprs) (i-loop (cdr exprs)
(call-with-values (λ () (loop (car exprs))) (call-with-values
list))])) (λ ()
(call-with-continuation-prompt
(λ ()
(loop (car exprs)))))
list))]))
;; the version below behaves properly wrt continuations ;; the version below behaves properly wrt continuations
;; but doesn't match mzscheme. So, we use the one above. ;; but doesn't match mzscheme. So, we use the one above.