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

Make `debug' catch *all* exceptions

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2010-06-17 13:13:26 -04:00
parent b5d4d54d45
commit 2285e1a340
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/unstable/debug.rkt
View File

@ -161,7 +161,7 @@
(lambda ()
(parameterize ([current-debug-depth (add1 depth)])
(with-handlers ([exn:fail? err])
(with-handlers ([(lambda _ #t) err])
(call-with-values thunk
(match-lambda*
[(list v)