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

fixed path bug

Browse Source 
svn: r4946
This commit is contained in:
Eli Barzilay 2006-11-26 07:07:18 +00:00
parent d5528cdb12
commit 7b17bc4efd
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/help/installer.ss
View File

@ -63,7 +63,7 @@
(if (>= n prefix-len) (if (>= n prefix-len)
p p
(loop (cdr p) (add1 n))))]) (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 ; (listof string) -> string
; result is forward-slashed web path ; result is forward-slashed web path
@ -71,8 +71,8 @@
(define (fold-into-web-path lst) (define (fold-into-web-path lst)
(foldr (lambda (s a) (foldr (lambda (s a)
(if a (if a
(bytes-append (path->bytes s) #"/" a) (bytes-append (path->bytes s) #"/" a)
(path->bytes s))) (path->bytes s)))
#f #f
lst)) lst))