suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Avoid stripping location information from syntax object in warning message.

Browse Source
This commit is contained in:
Tony Garnock-Jones 2013-03-18 15:29:59 -04:00 committed by Vincent St-Amour
parent b808d2809e
commit f2616b934c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/typed-racket/utils/tc-utils.rkt
View File

@ -55,7 +55,7 @@ don't depend on any other portion of the system
#;(syntax-source-module stx)) #;(syntax-source-module stx))
(log-message l 'warning (log-message l 'warning
(format "Typed Racket has detected unreachable code: ~.s" (format "Typed Racket has detected unreachable code: ~.s"
(syntax->datum (locate-stx e))) (locate-stx e))
e)))) e))))
(define (locate-stx stx) (define (locate-stx stx)