diff --git a/collects/typed-racket/utils/tc-utils.rkt b/collects/typed-racket/utils/tc-utils.rkt index 7acc2095..9c79eab3 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)