fixed path bug
svn: r4946
This commit is contained in:
parent
d5528cdb12
commit
7b17bc4efd
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue
Block a user