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

bugfix for the problem with the wedged drscheme on startup

Browse Source 
svn: r7958
This commit is contained in:
Robby Findler 2007-12-11 13:43:07 +00:00
parent 487a71bf0d
commit ad0c6175c7
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/slideshow/tool.ss
View File

@ -913,7 +913,10 @@ pict snip :
;; Converter: ;; Converter:
pict->image-snip pict->image-snip
;; Namespace setup: ;; 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%)) (define lib-pict-snipclass (make-object lib-pict-snipclass%))
(send lib-pict-snipclass set-version 2) (send lib-pict-snipclass set-version 2)