From 2a1618885582a9c71ae5fe925b81196a3b6efad3 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Tue, 19 Aug 2008 05:04:21 +0000
Subject: [PATCH] svn: r11323

---
 collects/setup/getinfo.ss | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/collects/setup/getinfo.ss b/collects/setup/getinfo.ss
index 4810e50289..bb3533c907 100644
--- a/collects/setup/getinfo.ss
+++ b/collects/setup/getinfo.ss
@@ -9,9 +9,9 @@
 
 ;; get-info : (listof path-or-string) -> info/#f
 (define (get-info coll-path)
-  (let ([coll-path (map (lambda (x) (if (path? x) (path->string x) x))
-                        coll-path)])
-    (get-info/full (apply collection-path coll-path))))
+  (get-info/full (apply collection-path
+                        (map (lambda (x) (if (path? x) (path->string x) x))
+                             coll-path))))
 
 ;; get-info/full : path -> info/#f
 (define (get-info/full dir)