From e18f8e904f619fc70ee8e42e5af6773c7f3a5f1a Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 28 Oct 2014 17:10:21 -0500 Subject: [PATCH] simplify the drracket/check-syntax documentation a little --- .../scribblings/drracket-tools/drracket-tools.scrbl | 8 ++------ 1 file changed, 2 insertions(+), 6 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 31c3a962c9..61896e6663 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 @@ -6,7 +6,7 @@ @(begin (syncheck-example-eval '(require drracket/check-syntax racket/class - setup/main-doc setup/collects))) + setup/path-to-relative))) @title{DrRacket Tools} @@ -53,11 +53,7 @@ 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) - (define p (path->collects-relative x)) - (if (path? p) - (path->main-doc-relative x) - p)] + [(path? x) (path->relative-string/library x)] [else x]))) (let ([example-module