commit 2fa2bf0954cf23dbc22a09a127cc583863ee8cc5
parent 60bcb31c6c39a830ed91e7a28582692a4da97ab1
Author: Eli Barzilay <eli@barzilay.org>
Date: Tue, 8 Jun 2010 15:58:35 -0400
Another small & subtle bug in relativize.
original commit: 6caabb92ccc742ecab7338844d2bc774a9fce3df
Diffstat:
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/collects/meta/web/html/resource.rkt b/collects/meta/web/html/resource.rkt
@@ -78,7 +78,7 @@
;; then make them relative
`(,@(map (lambda (_) "..") c) ,@t ,file*)]
;; different roots => use the one for the target
- [(make-rooted t)]
+ [(make-rooted tgtdir)]
;; otherwise throw an error
[else (error 'relativize "target url is not in any known root: ~a"
(string-join `(,@tgtdir ,file*) "/"))])))