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

commit f3e1a7425c8a7e55b1defec6479adf6b2f8c481e
parent e15bf50937dbc00a65c501282d7122af92b93dfb
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Thu, 13 Sep 2012 11:05:13 -0600

Scribble: fix problem with URL redirection

original commit: 4cc475ad688ac38c74388d45504cb883f93fa4d7

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

1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/collects/scribble/html-render.rkt b/collects/scribble/html-render.rkt
@@ -1121,7 +1121,11 @@
                                 url
                                 (combine-url/relative
                                  (string->url external-root-url)
-                                 (string-join (map path-element->string
+                                 (string-join (map (lambda (s)
+                                                     (case s
+                                                       [(up) ".."]
+                                                       [(same) "."]
+                                                       [else (path-element->string s)]))
                                                    (explode-path rel))
                                               "/"))
                                 [fragment