From 34e3279f98f05f175c3f38af5d28778ac6bc84fe Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@barzilay.org>
Date: Fri, 14 Jan 2011 09:13:32 -0500
Subject: [PATCH] Remove leftover debugging code

---
 collects/meta/web/download/data.rkt | 4 ----
 1 file changed, 4 deletions(-)

diff --git a/collects/meta/web/download/data.rkt b/collects/meta/web/download/data.rkt
index c69b19c81c..d53ebbab9b 100644
--- a/collects/meta/web/download/data.rkt
+++ b/collects/meta/web/download/data.rkt
@@ -251,10 +251,6 @@
            #f
            (let* ([get (caar fns)] [<? (cdar fns)] [x1 (get i1)] [x2 (get i2)])
              (or (<? x1 x2) (and (equal? x1 x2) (loop (cdr fns)))))))))))
-(with-output-to-file "/tmp/x" #:exists 'truncate
-  (lambda ()
-    (for ([i all-installers])
-      (printf "~s ~s\n" (installer-platform i) (installer-path i)))))
 
 (define package->name
   (let ([t (make-hasheq)])