From 6caabb92ccc742ecab7338844d2bc774a9fce3df Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Tue, 8 Jun 2010 15:58:35 -0400 Subject: [PATCH] Another small & subtle bug in relativize. --- collects/meta/web/html/resource.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/meta/web/html/resource.rkt b/collects/meta/web/html/resource.rkt index 3655fc3d0f..1e0cdf5b02 100644 --- 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*) "/"))])))