Avoid stripping location information from syntax object in warning message.

original commit: f2616b934c8e71b7d1caf327b31d2c9ba032c321
2013-03-18 15:29:59 -04:00 · 2013-03-18 15:29:59 -04:00 · 6bdd1c3c17
commit 6bdd1c3c17
parent a0821131dc
1 changed files with 1 additions and 1 deletions
--- 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)