From 2285e1a34043c33b6e67af2baab4cbc9e7e23839 Mon Sep 17 00:00:00 2001
From: Sam Tobin-Hochstadt <samth@racket-lang.org>
Date: Thu, 17 Jun 2010 13:13:26 -0400
Subject: [PATCH] Make `debug' catch *all* exceptions

---
 collects/unstable/debug.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/unstable/debug.rkt b/collects/unstable/debug.rkt
index b77fdf45d3..c7ab5e30d5 100644
--- a/collects/unstable/debug.rkt
+++ b/collects/unstable/debug.rkt
@@ -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)