From bf8039fc9060d1a6f18b64694fb6259c6b473b96 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 16 Jul 2010 03:37:37 -0600
Subject: [PATCH] fix relative URLs in single-page Scribble HTML output  Merge
 to v5.0.1 (cherry picked from commit
 8cb0b6fd7bf45324d668eef8101cc42437e58c3c)

original commit: 4be160043c0baa717d815678dc1fd74918a5c17c
---
 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
index 2e7eac9f..d5b0e252 100644
--- 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)
                   ""