From f2616b934c8e71b7d1caf327b31d2c9ba032c321 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Mon, 18 Mar 2013 15:29:59 -0400 Subject: [PATCH] Avoid stripping location information from syntax object in warning message. --- collects/typed-racket/utils/tc-utils.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/typed-racket/utils/tc-utils.rkt b/collects/typed-racket/utils/tc-utils.rkt index 7acc2095e7..9c79eab3b7 100644 --- a/collects/typed-racket/utils/tc-utils.rkt +++ b/collects/typed-racket/utils/tc-utils.rkt @@ -55,7 +55,7 @@ don't depend on any other portion of the system #;(syntax-source-module stx)) (log-message l 'warning (format "Typed Racket has detected unreachable code: ~.s" - (syntax->datum (locate-stx e))) + (locate-stx e)) e)))) (define (locate-stx stx)