bugfix for the problem with the wedged drscheme on startup

svn: r7958
This commit is contained in:
Robby Findler 2007-12-11 13:43:07 +00:00
parent 487a71bf0d
commit ad0c6175c7

View File

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