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

simplify the drracket/check-syntax documentation a little

Browse Source
This commit is contained in:
Robby Findler 2014-10-28 17:10:21 -05:00
parent 0fa5f866ae
commit e18f8e904f
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pkgs/drracket-pkgs/drracket-tool-doc/scribblings/drracket-tools/drracket-tools.scrbl
View File

@ -6,7 +6,7 @@
@(begin @(begin
(syncheck-example-eval (syncheck-example-eval
'(require drracket/check-syntax racket/class '(require drracket/check-syntax racket/class
setup/main-doc setup/collects))) setup/path-to-relative)))
@title{DrRacket Tools} @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)))] [(pair? x) (cons (loop (car x)) (loop (cdr x)))]
[(vector? x) (for/vector ([x (in-vector x)]) [(vector? x) (for/vector ([x (in-vector x)])
(loop x))] (loop x))]
[(path? x) [(path? x) (path->relative-string/library x)]
(define p (path->collects-relative x))
(if (path? p)
(path->main-doc-relative x)
p)]
[else x]))) [else x])))
(let ([example-module (let ([example-module