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

make path->relative-string/library use "<doc>/...." prefixes files in the docs

Browse Source
This commit is contained in:
Robby Findler 2014-10-28 16:30:48 -05:00
parent 54fc2cd939
commit 0fa5f866ae
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
pkgs/racket-pkgs/racket-doc/scribblings/raco/setup.scrbl
View File

@ -1513,8 +1513,9 @@ back to a path relative to @racket[(find-collects-dir)].}
is an absolute one that is inside the @filepath{collects} tree, the is an absolute one that is inside the @filepath{collects} tree, the
result is a string that begins with @racket["<collects>/"]. result is a string that begins with @racket["<collects>/"].
Similarly, a path in the user-specific collects results in a prefix of Similarly, a path in the user-specific collects results in a prefix of
@racket["<user-collects>/"], and a @PLaneT path results in @racket["<user-collects>/"], a @PLaneT path results in
@racket["<planet>/"]. @racket["<planet>/"], and a path into documentation results in
@racket["<doc>/"] or @racket["<user-doc>/"].
If @racket[cache] is not @racket[#f], it is used as a cache argument If @racket[cache] is not @racket[#f], it is used as a cache argument
for @racket[pkg->path] to speed up detection and conversion of for @racket[pkg->path] to speed up detection and conversion of

4
racket/collects/setup/path-to-relative.rkt
View File

@ -53,7 +53,9 @@
(make-path->relative-string (make-path->relative-string
(list (cons find-collects-dir "<collects>/") (list (cons find-collects-dir "<collects>/")
(cons find-user-collects-dir "<user>/") (cons find-user-collects-dir "<user>/")
(cons find-planet-dir "<planet>/")))) (cons find-planet-dir "<planet>/")
(cons find-doc-dir "<doc>/")
(cons find-user-doc-dir "<user-doc>/"))))
(define (make-default cache default) (define (make-default cache default)
(lambda (x) (lambda (x)
(define-values (pkg sub) (if (complete-path? x) (define-values (pkg sub) (if (complete-path? x)