From d60ae208e12a72c0788cb907b6870e3d748351e0 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Mon, 27 Oct 2008 20:04:41 +0000 Subject: [PATCH] Remove stray printf. svn: r12147 --- collects/typed-scheme/utils/tc-utils.ss | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/collects/typed-scheme/utils/tc-utils.ss b/collects/typed-scheme/utils/tc-utils.ss index def71a746a..75e5ac4740 100644 --- a/collects/typed-scheme/utils/tc-utils.ss +++ b/collects/typed-scheme/utils/tc-utils.ss @@ -36,9 +36,8 @@ (let ([l (current-logger)]) (when (and (warn-unreachable?) (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))) - #;(syntax-source-module e)) + (eq? (syntax-source-module e) (syntax-source-module (orig-module-stx))) + (syntax-source-module e)) (log-message l 'warning (format "Typed Scheme has detected unreachable code: ~e" (syntax->datum (locate-stx e))) e))))