From a94a633f3675afee3ec29fcca83fca58154b3ad2 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 1 Jul 2014 14:38:37 +0100 Subject: [PATCH] raco setup: fix installation of pre-built docs Fix the case that the destination doc directory does not match the document's source name. --- pkgs/racket-pkgs/racket-index/setup/scribble.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/pkgs/racket-pkgs/racket-index/setup/scribble.rkt b/pkgs/racket-pkgs/racket-index/setup/scribble.rkt index 089d1d61c3..8c8f2ca21f 100644 --- a/pkgs/racket-pkgs/racket-index/setup/scribble.rkt +++ b/pkgs/racket-pkgs/racket-index/setup/scribble.rkt @@ -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")))