fix setup-plt -c

svn: r8282
This commit is contained in:
Matthew Flatt 2008-01-10 20:20:12 +00:00
parent b76aa843ab
commit dd858c5bfa

View File

@ -412,7 +412,7 @@
(with-input-from-file path read))]) (with-input-from-file path read))])
(when (and (pair? deps) (list? deps)) (when (and (pair? deps) (list? deps))
(for ([s (cdr deps)]) (for ([s (cdr deps)])
(let ([s (map main-collects-relative->path s)]) (let ([s (main-collects-relative->path s)])
(when (path-string? s) (when (path-string? s)
(hash-table-put! dependencies s #t))))))) (hash-table-put! dependencies s #t)))))))
(delete-file path)) (delete-file path))