suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Remove leftover debugging code

Browse Source
This commit is contained in:
Eli Barzilay 2011-01-14 09:13:32 -05:00
parent 7b9cd25527
commit 34e3279f98
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/meta/web/download/data.rkt
View File

@ -251,10 +251,6 @@
#f #f
(let* ([get (caar fns)] [<? (cdar fns)] [x1 (get i1)] [x2 (get i2)]) (let* ([get (caar fns)] [<? (cdar fns)] [x1 (get i1)] [x2 (get i2)])
(or (<? x1 x2) (and (equal? x1 x2) (loop (cdr fns))))))))))) (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 (define package->name
(let ([t (make-hasheq)]) (let ([t (make-hasheq)])