Permalink
Browse files

removed printf

  • Loading branch information...
1 parent aaa1594 commit 23b9d8472f62cf394c692850d6880b1ebf553fea @rfindler rfindler committed Apr 6, 2012
Showing with 1 addition and 3 deletions.
  1. +1 −3 collects/racket/contract/private/ds.rkt
View
4 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)

0 comments on commit 23b9d84

Please sign in to comment.