From dd858c5bfa18e130fcd739e3831b88afa732c58c Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 10 Jan 2008 20:20:12 +0000
Subject: [PATCH] fix setup-plt -c

svn: r8282
---
 collects/setup/setup-unit.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/setup/setup-unit.ss b/collects/setup/setup-unit.ss
index 17b3748bee..639bc48b5a 100644
--- a/collects/setup/setup-unit.ss
+++ b/collects/setup/setup-unit.ss
@@ -412,7 +412,7 @@
                     (with-input-from-file path read))])
         (when (and (pair? deps) (list? deps))
           (for ([s (cdr deps)])
-            (let ([s (map main-collects-relative->path s)])
+            (let ([s (main-collects-relative->path s)])
               (when (path-string? s)
                 (hash-table-put! dependencies s #t)))))))
     (delete-file path))