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

another attempt to eliminate references to the original

Browse Source 
installation directory from the drracket tool docs

please include in 6.1.1
This commit is contained in:
Robby Findler 2014-10-28 11:02:46 -05:00
parent 8e34ef3a9d
commit ed0fa5da5b
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5,7 +5,8 @@
@(define syncheck-example-eval (make-base-eval)) @(define syncheck-example-eval (make-base-eval))
@(begin @(begin
(syncheck-example-eval (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} @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)))] [(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->module-path x)] [(path? 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