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

Another small & subtle bug in relativize.

Browse Source
This commit is contained in:
Eli Barzilay 2010-06-08 15:58:35 -04:00
parent 97baaf78e7
commit 6caabb92cc
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/meta/web/html/resource.rkt
View File

@ -78,7 +78,7 @@
;; then make them relative ;; then make them relative
`(,@(map (lambda (_) "..") c) ,@t ,file*)] `(,@(map (lambda (_) "..") c) ,@t ,file*)]
;; different roots => use the one for the target ;; different roots => use the one for the target
[(make-rooted t)] [(make-rooted tgtdir)]
;; otherwise throw an error ;; otherwise throw an error
[else (error 'relativize "target url is not in any known root: ~a" [else (error 'relativize "target url is not in any known root: ~a"
(string-join `(,@tgtdir ,file*) "/"))]))) (string-join `(,@tgtdir ,file*) "/"))])))