From e4c0c9b3b9783e75b30d851dcbafd5fdc2c3c123 Mon Sep 17 00:00:00 2001 From: Danny Yoo Date: Wed, 2 Jul 2008 18:15:46 +0000 Subject: [PATCH] Added defensive checks for rep; no rep available when exception occurs at Check Syntax. svn: r10561 --- collects/drscheme/private/module-language.ss | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/collects/drscheme/private/module-language.ss b/collects/drscheme/private/module-language.ss index 265f7ae7db..82e08e5ee3 100644 --- a/collects/drscheme/private/module-language.ss +++ b/collects/drscheme/private/module-language.ss @@ -250,11 +250,13 @@ ;; adding `drscheme:init^' to the imports to get ;; `drscheme:init:system-eventspace', or make `queue-system-callback/sync' ;; into a public method (accessible here). - (send rep set-show-no-user-evaluation-message? #f) + (when rep + (send rep set-show-no-user-evaluation-message? #f)) (when prefix (fprintf (current-error-port) "Module Language: ~a\n" prefix)) ((error-display-handler) (exn-message exn) exn) - (send rep insert-warning "\n[Interactions disabled]") + (when rep + (send rep insert-warning "\n[Interactions disabled]")) (custodian-shutdown-all (send rep get-user-custodian))) (define (raise-hopeless-syntax-error . error-args) (with-handlers ([exn? raise-hopeless-exception])