From cc362de32993ce3bacd8e9e8d538063dbe18a388 Mon Sep 17 00:00:00 2001 From: Danny Yoo Date: Wed, 2 Jul 2008 18:20:58 +0000 Subject: [PATCH] Added defensive checks for rep; no rep available when exception occurs at Check Syntax. svn: r10562 --- collects/drscheme/private/module-language.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/drscheme/private/module-language.ss b/collects/drscheme/private/module-language.ss index 82e08e5ee3..f6e751ceb0 100644 --- a/collects/drscheme/private/module-language.ss +++ b/collects/drscheme/private/module-language.ss @@ -256,8 +256,8 @@ (fprintf (current-error-port) "Module Language: ~a\n" prefix)) ((error-display-handler) (exn-message exn) exn) (when rep - (send rep insert-warning "\n[Interactions disabled]")) - (custodian-shutdown-all (send rep get-user-custodian))) + (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]) (apply raise-syntax-error '|Module Language|