bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit ec179d4cbfd15929fc203a30e52befba56d110bd
parent 57064d288572638fc4a10b1ac668c6933580be09
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Fri, 11 Apr 2008 17:19:43 +0000

fix path URLS in scribble output

svn: r9258

original commit: 251491e17f3a24508ec3b66f4a6328fbf70b6eea

Diffstat:
M
collects/scribble/html-render.ss
 | 
3
++-

1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/collects/scribble/html-render.ss b/collects/scribble/html-render.ss
@@ -8,6 +8,7 @@
            setup/main-doc
            setup/main-collects
            mzlib/list
+	   net/url
            (prefix-in xml: xml/xml)
            (for-syntax scheme/base))
   (provide render-mixin
@@ -1018,7 +1019,7 @@
 
   (define (from-root p d)
     (if (not d)
-      p
+      (url->string (path->url p))
       (let ([e-d (explode (path->complete-path d (current-directory)))]
             [e-p (explode (path->complete-path p (current-directory)))])
         (let loop ([e-d e-d]