From ad0c6175c7343fd9c0916ec886cf2713d048935f Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 11 Dec 2007 13:43:07 +0000 Subject: [PATCH] bugfix for the problem with the wedged drscheme on startup svn: r7958 --- collects/slideshow/tool.ss | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/collects/slideshow/tool.ss b/collects/slideshow/tool.ss index 6503737cbb..22aefbc27a 100644 --- a/collects/slideshow/tool.ss +++ b/collects/slideshow/tool.ss @@ -913,7 +913,10 @@ pict snip : ;; Converter: pict->image-snip ;; Namespace setup: - (λ () (dynamic-require '(lib "texpict/mrpict.ss") #f))) + (λ () + (with-handlers ((exn? void)) + ;; code running in this thunk cannot fail, or else drscheme gets wedged. + (dynamic-require '(lib "texpict/mrpict.ss") #f)))) (define lib-pict-snipclass (make-object lib-pict-snipclass%)) (send lib-pict-snipclass set-version 2)