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

Remove stray printf.

Browse Source 
svn: r12147
This commit is contained in:
Sam Tobin-Hochstadt 2008-10-27 20:04:41 +00:00
parent 0f347883dd
commit d60ae208e1
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/typed-scheme/utils/tc-utils.ss
View File

@ -36,9 +36,8 @@
(let ([l (current-logger)]) (let ([l (current-logger)])
(when (and (warn-unreachable?) (when (and (warn-unreachable?)
(log-level? l 'warning) (log-level? l 'warning)
(printf "~a~n~a~n" (syntax-source-module e) (syntax-source-module (orig-module-stx)))
(eq? (syntax-source-module e) (syntax-source-module (orig-module-stx))) (eq? (syntax-source-module e) (syntax-source-module (orig-module-stx)))
#;(syntax-source-module e)) (syntax-source-module e))
(log-message l 'warning (format "Typed Scheme has detected unreachable code: ~e" (syntax->datum (locate-stx e))) (log-message l 'warning (format "Typed Scheme has detected unreachable code: ~e" (syntax->datum (locate-stx e)))
e)))) e))))