Remove leftover debugging code

This commit is contained in:
Eli Barzilay 2011-01-14 09:13:32 -05:00
parent 7b9cd25527
commit 34e3279f98

View File

@ -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)])