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

syntax: provide 'default-compiled-sub-path' and update docs

Browse Source 
The docs talked about a 'get-default-compiled-sub-path'.

I changed them to use the name from the library.
This commit is contained in:
Ben Greenman 2019-07-15 22:16:14 -04:00
parent f7c85e1788
commit 84340c6cca
2 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
pkgs/racket-doc/syntax/scribblings/modcode.scrbl
View File

@ -7,7 +7,7 @@
@defproc[(get-module-code [path path-string?] @defproc[(get-module-code [path path-string?]
[#:submodule-path submodule-path (listof symbol?) '()] [#:submodule-path submodule-path (listof symbol?) '()]
[#:sub-path compiled-subdir0 (and/c path-string? relative-path?) (get-default-compiled-sub-path)] [#:sub-path compiled-subdir0 (and/c path-string? relative-path?) (default-compiled-sub-path)]
[compiled-subdir (and/c path-string? relative-path?) compiled-subdir0] [compiled-subdir (and/c path-string? relative-path?) compiled-subdir0]
[#:roots roots (listof (or/c path-string? 'same)) (current-compiled-file-roots)] [#:roots roots (listof (or/c path-string? 'same)) (current-compiled-file-roots)]
[#:compile compile-proc0 (any/c . -> . any) compile] [#:compile compile-proc0 (any/c . -> . any) compile]
@ -31,7 +31,7 @@ specified by @racket[path] and @racket[submodule-path], where
@racket[submodule-path] is empty for a root module or a list for a @racket[submodule-path] is empty for a root module or a list for a
submodule. submodule.
The @racket[compiled-subdir] argument defaults to @racket[(get-default-compiled-sub-path)]; The @racket[compiled-subdir] argument defaults to @racket[(default-compiled-sub-path)];
it specifies the sub-directory to search for a compiled version of the it specifies the sub-directory to search for a compiled version of the
module. The @racket[roots] list specifies a compiled-file search path module. The @racket[roots] list specifies a compiled-file search path
in the same way as the @racket[current-compiled-file-roots] parameter. in the same way as the @racket[current-compiled-file-roots] parameter.
@ -79,12 +79,12 @@ If @racket[notify-proc] is supplied, it is called for the file
If @racket[read-syntax-proc] is provided, it is used to read the If @racket[read-syntax-proc] is provided, it is used to read the
module from a source file (but not from a bytecode file). module from a source file (but not from a bytecode file).
@history[#:changed "6.90.0.7" @elem{Use @racket[(get-default-compiled-sub-path)] @history[#:changed "6.90.0.7" @elem{Use @racket[(default-compiled-sub-path)]
for the default value of @racket[compiled-subdir].}]} for the default value of @racket[compiled-subdir].}]}
@defproc[(get-module-path [path path-string?] @defproc[(get-module-path [path path-string?]
[#:submodule? submodule? boolean?] [#:submodule? submodule? boolean?]
[#:sub-path compiled-subdir0 (and/c path-string? relative-path?) (get-default-compiled-sub-path)] [#:sub-path compiled-subdir0 (and/c path-string? relative-path?) (default-compiled-sub-path)]
[compiled-subdir (and/c path-string? relative-path?) compiled-subdir0] [compiled-subdir (and/c path-string? relative-path?) compiled-subdir0]
[#:roots roots (listof (or/c path-string? 'same)) (current-compiled-file-roots)] [#:roots roots (listof (or/c path-string? 'same)) (current-compiled-file-roots)]
[#:choose choose-proc [#:choose choose-proc
@ -111,11 +111,11 @@ submodule of the one specified by @racket[path]. When @racket[submodule?] is
true, the result is never a @racket['so] path, as native libraries cannot true, the result is never a @racket['so] path, as native libraries cannot
provide submodules. provide submodules.
@history[#:changed "6.90.0.7" @elem{Use @racket[(get-default-compiled-sub-path)] @history[#:changed "6.90.0.7" @elem{Use @racket[(default-compiled-sub-path)]
for the default value of @racket[compiled-subdir].}]} for the default value of @racket[compiled-subdir].}]}
@defproc[(get-default-compiled-sub-path) path-string?]{ @defproc[(default-compiled-sub-path) path-string?]{
If @racket[(use-compiled-file-paths)] is not @racket['()], returns the If @racket[(use-compiled-file-paths)] is not @racket['()], returns the
first element of the list. Otherwise, results @racket["compiled"]. first element of the list. Otherwise, results @racket["compiled"].

4
racket/collects/syntax/private/modcode-noctc.rkt
View File

@ -11,7 +11,9 @@
get-module-code get-module-code
get-module-path get-module-path
get-metadata-path) get-metadata-path
default-compiled-sub-path)
(define moddep-current-open-input-file (define moddep-current-open-input-file
(make-parameter open-input-file)) (make-parameter open-input-file))