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

fix path URLS in scribble output

Browse Source 
svn: r9258

original commit: 251491e17f3a24508ec3b66f4a6328fbf70b6eea
This commit is contained in:
Matthew Flatt 2008-04-11 17:19:43 +00:00
parent 57064d2885
commit ec179d4cbf
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/scribble/html-render.ss
View File

@ -8,6 +8,7 @@
setup/main-doc setup/main-doc
setup/main-collects setup/main-collects
mzlib/list mzlib/list
net/url
(prefix-in xml: xml/xml) (prefix-in xml: xml/xml)
(for-syntax scheme/base)) (for-syntax scheme/base))
(provide render-mixin (provide render-mixin
@ -1018,7 +1019,7 @@
(define (from-root p d) (define (from-root p d)
(if (not d) (if (not d)
p (url->string (path->url p))
(let ([e-d (explode (path->complete-path d (current-directory)))] (let ([e-d (explode (path->complete-path d (current-directory)))]
[e-p (explode (path->complete-path p (current-directory)))]) [e-p (explode (path->complete-path p (current-directory)))])
(let loop ([e-d e-d] (let loop ([e-d e-d]