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

raco setup: fix installation of pre-built docs

Browse Source 
Fix the case that the destination doc directory does not match
the document's source name.
This commit is contained in:
Matthew Flatt 2014-07-01 14:38:37 +01:00
parent d316652160
commit a94a633f36
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pkgs/racket-pkgs/racket-index/setup/scribble.rkt
View File

@ -852,7 +852,7 @@
(define (pick-dest latex-dest doc)
(cond [(path? latex-dest)
(let-values ([(base name dir?) (split-path (doc-src-file doc))])
(let-values ([(base name dir?) (split-path (doc-dest-dir doc))])
(build-path latex-dest (path-replace-suffix name #".tex")))]
[(not latex-dest)
(cond
@ -985,8 +985,8 @@
doc)
;; First, move pre-rendered documentation, if any, into place
(let ([rendered-dir (let-values ([(base name dir?) (split-path (doc-src-file doc))])
(build-path (doc-src-dir doc) "doc" (path-replace-suffix name #"")))])
(let ([rendered-dir (let-values ([(base name dir?) (split-path (doc-dest-dir doc))])
(build-path (doc-src-dir doc) "doc" name))])
(when (and (can-build? only-dirs doc)
(directory-exists? rendered-dir)
(not (file-exists? (build-path rendered-dir "synced.rktd")))