From ed0fa5da5bdc1237bc15036b9c272ee32fdc3b6c Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 28 Oct 2014 11:02:46 -0500 Subject: [PATCH] another attempt to eliminate references to the original installation directory from the drracket tool docs please include in 6.1.1 --- .../scribblings/drracket-tools/drracket-tools.scrbl | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/pkgs/drracket-pkgs/drracket-tool-doc/scribblings/drracket-tools/drracket-tools.scrbl b/pkgs/drracket-pkgs/drracket-tool-doc/scribblings/drracket-tools/drracket-tools.scrbl index 0953303d10..31c3a962c9 100644 --- a/pkgs/drracket-pkgs/drracket-tool-doc/scribblings/drracket-tools/drracket-tools.scrbl +++ b/pkgs/drracket-pkgs/drracket-tool-doc/scribblings/drracket-tools/drracket-tools.scrbl @@ -5,7 +5,8 @@ @(define syncheck-example-eval (make-base-eval)) @(begin (syncheck-example-eval - '(require drracket/check-syntax racket/class setup/collects))) + '(require drracket/check-syntax racket/class + setup/main-doc setup/collects))) @title{DrRacket Tools} @@ -52,7 +53,11 @@ in order to make the results be platform independent. [(pair? x) (cons (loop (car x)) (loop (cdr x)))] [(vector? x) (for/vector ([x (in-vector x)]) (loop x))] - [(path? x) (path->module-path x)] + [(path? x) + (define p (path->collects-relative x)) + (if (path? p) + (path->main-doc-relative x) + p)] [else x]))) (let ([example-module