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