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

minor Rackety and add a little more info into the log from when

Browse Source 
DrRacket gets confused
This commit is contained in:
Robby Findler 2012-10-08 08:29:44 -05:00
parent 9ed7b44222
commit daed2aaed0
2 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/drracket/private/language.rkt
View File

@ -139,7 +139,7 @@
(define/public (get-one-line-summary) one-line-summary) (define/public (get-one-line-summary) one-line-summary)
(define/public (get-language-url) language-url) (define/public (get-language-url) language-url)
(define/public (get-reader) reader) (define/public (get-reader) reader)
(super-instantiate ()))) (super-new)))
@ -188,7 +188,7 @@
(simple-module-based-language-render-value/format value settings port width)) (simple-module-based-language-render-value/format value settings port width))
(define/public (render-value value settings port) (define/public (render-value value settings port)
(simple-module-based-language-render-value/format value settings port 'infinity)) (simple-module-based-language-render-value/format value settings port 'infinity))
(super-instantiate ()))) (super-new)))
;; settings for a simple module based language ;; settings for a simple module based language
(define-struct simple-settings (case-sensitive (define-struct simple-settings (case-sensitive

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

@ -109,14 +109,19 @@
;; creating a sanbox can fail in strange ways so we just ;; creating a sanbox can fail in strange ways so we just
;; swallow the failures so as to not wreck DrRacket ;; swallow the failures so as to not wreck DrRacket
(with-handlers ((exn:fail? (λ (x) (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 (for ([x (in-list (continuation-mark-set->context
(exn-continuation-marks x)))]) (exn-continuation-marks x)))])
(log-error (format " ~s" x)))))) (log-error (format " ~s" x))))))
(set! sandbox (make-evaluator 'racket/base)))))) (set! sandbox (make-evaluator 'racket/base))))))
(define/override (first-opened settings) (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; ;; get-ns can fail in all kinds of strange ways;
;; just give up if it does, since an error here ;; just give up if it does, since an error here
;; means drracket won't start up. ;; means drracket won't start up.