From b44494abe5113ae5ac31ba6a185ac870ca2fe212 Mon Sep 17 00:00:00 2001
From: Danny Yoo <dyoo@racket-lang.org>
Date: Thu, 4 Sep 2008 19:35:51 +0000
Subject: [PATCH] Disabling debug printf statement.

svn: r11538
---
 collects/mzlib/private/contract-arrow.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/mzlib/private/contract-arrow.ss b/collects/mzlib/private/contract-arrow.ss
index e1f0551789..ae0350cf62 100644
--- 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