From 823b6629aae7a1c668c2dffb2d89a16fc4a5889c Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 1 Feb 2011 12:12:36 -0600 Subject: [PATCH] add an extra check to make sure drracket is more likely to startup when things go wrong in strange ways Please merge to the 5.1 release branch --- collects/drracket/private/module-language.rkt | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/collects/drracket/private/module-language.rkt b/collects/drracket/private/module-language.rkt index e7801396c5..34916eb38f 100644 --- a/collects/drracket/private/module-language.rkt +++ b/collects/drracket/private/module-language.rkt @@ -82,7 +82,11 @@ (set! sandbox (make-evaluator 'racket/base))))) (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))) (define/private (get-ns str)