From df6e038f267bde7530cef4b799bfcebba950c851 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Sat, 12 Apr 2008 17:58:56 +0000 Subject: [PATCH] Don't use source locator when it won't work. svn: r9278 --- collects/typed-scheme/private/tc-utils.ss | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/collects/typed-scheme/private/tc-utils.ss b/collects/typed-scheme/private/tc-utils.ss index a104bf8016..95383feb2d 100644 --- a/collects/typed-scheme/private/tc-utils.ss +++ b/collects/typed-scheme/private/tc-utils.ss @@ -29,7 +29,9 @@ ;(printf "orig: ~a~n" (syntax-object->datum omodule)) ;(printf "exp: ~a~n" (syntax-object->datum emodule)) ;(printf "stx (locate): ~a~n" (syntax-object->datum stx)) - (look-for-in-orig omodule emodule stx)) + (if (and omodule emodule stx) + (look-for-in-orig omodule emodule stx) + stx)) ;; produce a type error, using the current syntax (define (tc-error msg . rest)