From 8da2692b858de4c715cba5e1e3b765342010b02f Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 14 Mar 2014 09:47:06 -0600 Subject: [PATCH] avoid unnecessary embedding of build path in generated doc support --- .../scribblings/main/private/local-redirect.rkt | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) diff --git a/pkgs/racket-pkgs/racket-index/scribblings/main/private/local-redirect.rkt b/pkgs/racket-pkgs/racket-index/scribblings/main/private/local-redirect.rkt index 6524b14b16..9d8b53825a 100644 --- a/pkgs/racket-pkgs/racket-index/scribblings/main/private/local-redirect.rkt +++ b/pkgs/racket-pkgs/racket-index/scribblings/main/private/local-redirect.rkt @@ -115,11 +115,15 @@ (fprintf o "// This script is included by generated documentation to rewrite\n") (fprintf o "// links expressed as tag queries into local-filesystem links.\n") (newline o) - (fprintf o "link_target_prefix = ~s;\n" (url->string - (path->url - (path->directory-path - (build-path (find-doc-dir) "local-redirect"))))) - (newline o) + (when user? + ;; If not user, link_target_prefix is declared in the output + ;; of `rewrite-code` (and we don't want to include a build-time path + ;; that would end up in a distribution) + (fprintf o "link_target_prefix = ~s;\n" (url->string + (path->url + (path->directory-path + (build-path (find-doc-dir) "local-redirect"))))) + (newline o)) (fprintf o "var ~alink_targets = [" (if user? "user_" "")) (for ([e (in-list db)] [i (in-naturals)])