suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

default to main-doc if docs are in main-collects

Browse Source 
svn: r8294
This commit is contained in:
Eli Barzilay 2008-01-11 08:26:14 +00:00
parent aa71be72cf
commit c31c424086
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/setup/xref.ss
View File

@ -2,7 +2,8 @@
(require scribble/xref
setup/getinfo
setup/dirs)
setup/dirs
setup/main-collects)
(provide load-collections-xref)
@ -17,7 +18,8 @@
(let-values ([(base name dir?) (split-path (car d))])
(path-replace-suffix name #"")))])
(build-path
(if (memq 'main-doc flags)
(if (or (memq 'main-doc flags)
(pair? (path->main-collects-relative dir)))
(build-path (find-doc-dir) name)
(build-path dir "compiled" "doc" name))
"out.sxref"))