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

add an extra check to make sure drracket is more likely to startup when things go wrong in strange ways

Browse Source 
Please merge to the 5.1 release branch
This commit is contained in:
Robby Findler 2011-02-01 12:12:36 -06:00
parent 9f51cb838f
commit 823b6629aa
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/drracket/private/module-language.rkt
View File

@ -82,7 +82,11 @@
(set! sandbox (make-evaluator 'racket/base))))) (set! sandbox (make-evaluator 'racket/base)))))
(define/override (first-opened settings) (define/override (first-opened settings)
(define ns (get-ns (get-auto-text settings))) (define ns (with-handlers ((exn:fail? (lambda (x) #f)))
;; get-ns can fail in all kinds of strange ways;
;; just give up if it does, since an error here
;; means drracket won't start up.
(get-ns (get-auto-text settings))))
(when ns (current-namespace ns))) (when ns (current-namespace ns)))
(define/private (get-ns str) (define/private (get-ns str)