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

fix problem building docs for planet

Browse Source 
svn: r11480

original commit: 6230ed7ed726353ffb32a0f1b0e363b2fe0dcc59
This commit is contained in:
Matthew Flatt 2008-08-29 13:15:09 +00:00
commit fb906ad2d0
2 changed files with 16 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/scribble/base-render.ss
View File

@ -64,12 +64,15 @@
p)) p))
(define/public (root-relative->path p) (define/public (root-relative->path p)
(if (and (pair? p) (if (root-relative? p)
(mobile-root? (car p)))
(apply build-path (mobile-root-path (car p)) (apply build-path (mobile-root-path (car p))
(map bytes->path-element (cdr p))) (map bytes->path-element (cdr p)))
p)) p))
(define/public (root-relative? p)
(and (pair? p)
(mobile-root? (car p))))
;; ---------------------------------------- ;; ----------------------------------------
;; marshal info ;; marshal info

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

@ -249,7 +249,8 @@
;; ---------------------------------------- ;; ----------------------------------------
(inherit path->root-relative (inherit path->root-relative
root-relative->path) root-relative->path
root-relative?)
(define (path->relative p) (define (path->relative p)
(let ([p (path->main-doc-relative p)]) (let ([p (path->main-doc-relative p)])
@ -261,13 +262,15 @@
(intern-taglet p)))) (intern-taglet p))))
(define (relative->path p) (define (relative->path p)
(let ([p (main-doc-relative->path p)]) (if (root-relative? p)
(root-relative->path p)
(let ([p (if (or (not (pair? p))
(eq? (car p) 'doc))
(main-doc-relative->path p)
p)])
(if (path? p) (if (path? p)
p p
(let ([p (main-collects-relative->path p)]) (main-collects-relative->path p)))))
(if (path? p)
p
(root-relative->path p))))))
;; ---------------------------------------- ;; ----------------------------------------