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

don't catch break exceptions

Browse Source
This commit is contained in:
Robby Findler 2010-10-10 14:30:33 -05:00
parent 2de8b978ba
commit e2958e0605
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/slideshow/tool.rkt
View File

@ -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))))