From fe3eee50bd17cbfdcc198836f2c224646f3b0755 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Tue, 4 May 2010 19:46:11 -0400 Subject: [PATCH] avoid error when not transforming original commit: 646bc0ecab63e350d69af5e8517503c2ab6d7fcb --- collects/typed-scheme/utils/tc-utils.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/typed-scheme/utils/tc-utils.rkt b/collects/typed-scheme/utils/tc-utils.rkt index 2ee33523..04fc918a 100644 --- a/collects/typed-scheme/utils/tc-utils.rkt +++ b/collects/typed-scheme/utils/tc-utils.rkt @@ -46,7 +46,7 @@ don't depend on any other portion of the system [stx (locate-stx e)]) (when (and (warn-unreachable?) (log-level? l 'warning) - (syntax-original? (syntax-local-introduce e)) + (and (syntax-transforming?) (syntax-original? (syntax-local-introduce e))) #;(and (orig-module-stx) (eq? (debug syntax-source-module e) (debug syntax-source-module (orig-module-stx)))) #;(syntax-source-module stx)) (log-message l 'warning (format "Typed Scheme has detected unreachable code: ~e" (syntax->datum (locate-stx e)))