From 23b9d8472f62cf394c692850d6880b1ebf553fea Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 6 Apr 2012 07:51:03 -0500 Subject: [PATCH] removed printf --- collects/racket/contract/private/ds.rkt | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/collects/racket/contract/private/ds.rkt b/collects/racket/contract/private/ds.rkt index 56838db381..f02d69efe4 100644 --- a/collects/racket/contract/private/ds.rkt +++ b/collects/racket/contract/private/ds.rkt @@ -240,9 +240,7 @@ it around flattened out. #f) (if (contract-struct? b-sel) #f - (begin - (printf "comparing ~s ~s ~s\n" a-sel b-sel (procedure-closure-contents-eq? a-sel b-sel)) - (procedure-closure-contents-eq? a-sel b-sel))))) + (procedure-closure-contents-eq? a-sel b-sel)))) ...)) (define (lazy-contract-proj ctc)