From 32fb4f441ded02e4f6c39d52187a50f53c27e314 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Wed, 21 Oct 2009 14:47:07 +0000 Subject: [PATCH] Avoid error when `orig-module-stx' not set. svn: r16399 original commit: dc5d10409cff2f12e074a45f88e0d9e59958d2b8 --- collects/typed-scheme/utils/tc-utils.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/typed-scheme/utils/tc-utils.ss b/collects/typed-scheme/utils/tc-utils.ss index 6c431e8d..e6547683 100644 --- a/collects/typed-scheme/utils/tc-utils.ss +++ b/collects/typed-scheme/utils/tc-utils.ss @@ -42,7 +42,7 @@ don't depend on any other portion of the system (let ([l (current-logger)]) (when (and (warn-unreachable?) (log-level? l 'warning) - (eq? (syntax-source-module e) (syntax-source-module (orig-module-stx))) + (and (orig-module-stx) (eq? (syntax-source-module e) (syntax-source-module (orig-module-stx)))) (syntax-source-module e)) (log-message l 'warning (format "Typed Scheme has detected unreachable code: ~e" (syntax->datum (locate-stx e))) e))))