Disabling debug printf statement.

svn: r11538 original commit: b44494abe5113ae5ac31ba6a185ac870ca2fe212
2008-09-04 19:35:51 +00:00 · 2008-09-04 19:35:51 +00:00 · 7cce53d9eb
commit 7cce53d9eb
parent 220318bbae
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