From e2958e0605bdfa71234fcbb15ae6fcca678bdd36 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 10 Oct 2010 14:30:33 -0500 Subject: [PATCH] don't catch break exceptions --- collects/slideshow/tool.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/slideshow/tool.rkt b/collects/slideshow/tool.rkt index 532a8701dd..752b979b53 100644 --- a/collects/slideshow/tool.rkt +++ b/collects/slideshow/tool.rkt @@ -349,7 +349,7 @@ pict snip : ;; if the require fails, then we cannot display the pict. ;; this can happen when, for example, there is no mred module ;; in the namespace - (let ([pict? (with-handlers ((exn? (λ (x) #f))) + (let ([pict? (with-handlers ((exn:fail? (λ (x) #f))) (dynamic-require 'texpict/mrpict 'pict?))]) (and pict? (pict? x)))) @@ -357,7 +357,7 @@ pict snip : pict->image-snip ;; Namespace setup: (λ () - (with-handlers ((exn? void)) + (with-handlers ((exn:fail? void)) ;; code running in this thunk cannot fail, or else drscheme gets wedged. (dynamic-require 'texpict/mrpict #f))))