Disabling debug printf statement.

svn: r11538
2008-09-04 19:35:51 +00:00 · 2008-09-04 19:35:51 +00:00 · b44494abe5
commit b44494abe5
parent 1c654c35d2
1 changed files with 1 additions and 1 deletions
--- a/collects/mzlib/private/contract-arrow.ss
+++ b/collects/mzlib/private/contract-arrow.ss
@ -148,7 +148,7 @@
      [(null? lst) (list x)]
      [else
       (let ([fst-kwd (syntax-e (car (car lst)))])
-         (printf "comparing ~s to ~s\n" (car x) fst-kwd)
+         #;(printf "comparing ~s to ~s\n" (car x) fst-kwd)
         (cond
           [(equal? (syntax-e (car x)) fst-kwd)
            (raise-syntax-error #f