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

commit c609cca35c345a17359e96a9dd9e5e68e09e7a0a
parent 5602b633ee935bfd54b9529a6019999937eec8a9
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Fri, 16 Jul 2010 03:37:37 -0600

fix relative URLs in single-page Scribble HTML output
 Merge to v5.0.1

original commit: 8cb0b6fd7bf45324d668eef8101cc42437e58c3c

Diffstat:
M
collects/scribble/html-render.rkt
 | 
6
++++--

1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/collects/scribble/html-render.rkt b/collects/scribble/html-render.rkt
@@ -358,8 +358,10 @@
 
     (define/private (dest->url dest)
       (format "~a~a~a"
-              (from-root (relative->path (dest-path dest))
-                         (get-dest-directory))
+              (let ([p (relative->path (dest-path dest))])
+                (if (equal? p (current-output-file))
+                    ""
+                    (from-root p (get-dest-directory))))
               (if (dest-page? dest) "" "#")
               (if (dest-page? dest)
                   ""