From 7b17bc4efd70f246a823237be823960f574e4460 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Sun, 26 Nov 2006 07:07:18 +0000
Subject: [PATCH] fixed path bug

svn: r4946
---
 collects/help/installer.ss | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/collects/help/installer.ss b/collects/help/installer.ss
index 9f2c7bc747..e587fc5ff0 100644
--- a/collects/help/installer.ss
+++ b/collects/help/installer.ss
@@ -63,7 +63,7 @@
 	      (if (>= n prefix-len)
 		  p
 		  (loop (cdr p) (add1 n))))])
-      (fold-into-web-path (map path->string relative-exp-path))))
+      (fold-into-web-path relative-exp-path)))
   
   ; (listof string) -> string
   ; result is forward-slashed web path
@@ -71,8 +71,8 @@
   (define (fold-into-web-path lst)
     (foldr (lambda (s a)
              (if a
-                 (bytes-append (path->bytes s) #"/" a)
-                 (path->bytes s)))
+               (bytes-append (path->bytes s) #"/" a)
+               (path->bytes s)))
            #f
            lst))