From 2e2f299a10e71299cdbfd6be89f811a5b0dd2d4e Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Mon, 14 Apr 2008 18:13:59 +0000 Subject: [PATCH] Don't print "checked foo". Improve names in recursive contracts. svn: r9298 original commit: 1039055628225ebed52d0b45a2fa22d782905108 --- collects/typed-scheme/typed-scheme.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/typed-scheme/typed-scheme.ss b/collects/typed-scheme/typed-scheme.ss index 80ed340d..a39d738c 100644 --- a/collects/typed-scheme/typed-scheme.ss +++ b/collects/typed-scheme/typed-scheme.ss @@ -91,7 +91,7 @@ [(transformed-body ...) (remove-provides #'(body2 ...))])] [with-syntax ([(transformed-body ...) (change-contract-fixups #'(transformed-body ...))])]) (do-time "Typechecked") - (printf "checked ~a~n" module-name) + #;(printf "checked ~a~n" module-name) #;(printf "created ~a types~n" (count!)) #;(printf "tried to create ~a types~n" (all-count!)) #;(printf "created ~a union types~n" (union-count!))