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

removed printf

Browse Source
This commit is contained in:
Robby Findler 2012-04-06 07:51:03 -05:00
parent aaa15946fc
commit 23b9d8472f
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/racket/contract/private/ds.rkt
View File

@ -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)