From daed2aaed029d24a7c204511a14510a7ca938a80 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 8 Oct 2012 08:29:44 -0500 Subject: [PATCH] minor Rackety and add a little more info into the log from when DrRacket gets confused --- collects/drracket/private/language.rkt | 4 ++-- collects/drracket/private/module-language.rkt | 9 +++++++-- 2 files changed, 9 insertions(+), 4 deletions(-) diff --git a/collects/drracket/private/language.rkt b/collects/drracket/private/language.rkt index 464fdae6a8..a3e5f580a9 100644 --- a/collects/drracket/private/language.rkt +++ b/collects/drracket/private/language.rkt @@ -139,7 +139,7 @@ (define/public (get-one-line-summary) one-line-summary) (define/public (get-language-url) language-url) (define/public (get-reader) reader) - (super-instantiate ()))) + (super-new))) @@ -188,7 +188,7 @@ (simple-module-based-language-render-value/format value settings port width)) (define/public (render-value value settings port) (simple-module-based-language-render-value/format value settings port 'infinity)) - (super-instantiate ()))) + (super-new))) ;; settings for a simple module based language (define-struct simple-settings (case-sensitive diff --git a/collects/drracket/private/module-language.rkt b/collects/drracket/private/module-language.rkt index a979084943..4adb99cc4b 100644 --- a/collects/drracket/private/module-language.rkt +++ b/collects/drracket/private/module-language.rkt @@ -109,14 +109,19 @@ ;; creating a sanbox can fail in strange ways so we just ;; swallow the failures so as to not wreck DrRacket (with-handlers ((exn:fail? (λ (x) - (log-error (exn-message x)) + (log-error (format "DrRacket:module-language:sandbox exn: ~a" (exn-message x))) (for ([x (in-list (continuation-mark-set->context (exn-continuation-marks x)))]) (log-error (format " ~s" x)))))) (set! sandbox (make-evaluator 'racket/base)))))) (define/override (first-opened settings) - (define ns (with-handlers ((exn:fail? (lambda (x) #f))) + (define ns (with-handlers ((exn:fail? (lambda (x) + (log-error (format "DrRacket:module-language.rkt:first-opened exn: ~a" (exn-message x))) + (for ([x (in-list (continuation-mark-set->context + (exn-continuation-marks x)))]) + (log-error (format " ~s" 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.