remove debugging printf

2010-07-09 14:06:46 -04:00 · 2010-07-09 14:06:46 -04:00 · e28b60e44f
commit e28b60e44f
parent d030d0631d
1 changed files with 1 additions and 1 deletions
--- a/collects/typed-scheme/infer/infer-unit.rkt
+++ b/collects/typed-scheme/infer/infer-unit.rkt
@ -529,7 +529,7 @@
                 [Contravariant T]
                 [Invariant 
                  (let ([gS (generalize S)])
-                    (printf "Inv var: ~a ~a ~a ~a\n" v S gS T)
+                    ;(printf "Inv var: ~a ~a ~a ~a\n" v S gS T)
                    (if (subtype gS T)
                        gS
                        S))]))]))