suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

Scribble: fix problem with URL redirection

Browse Source 
original commit: 4cc475ad688ac38c74388d45504cb883f93fa4d7
This commit is contained in:
Matthew Flatt 2012-09-13 11:05:13 -06:00
parent e15bf50937
commit f3e1a7425c
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/scribble/html-render.rkt
View File

@ -1121,7 +1121,11 @@
url url
(combine-url/relative (combine-url/relative
(string->url external-root-url) (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)) (explode-path rel))
"/")) "/"))
[fragment [fragment