Small typos, some reformatting.
Fixes PR10920 original commit: c4f67b3e747c1312459737d5ada8dc1b96b1864c
This commit is contained in:
commit
9b742bd091
|
@ -27,6 +27,7 @@
|
|||
(define current-extra-files (make-parameter null))
|
||||
(define current-redirect (make-parameter #f))
|
||||
(define current-redirect-main (make-parameter #f))
|
||||
(define current-quiet (make-parameter #f))
|
||||
|
||||
(define (read-one str)
|
||||
(let ([i (open-input-string str)])
|
||||
|
@ -85,6 +86,9 @@
|
|||
'scribble "bad procedure identifier for ++ref-in: ~s" proc-id))
|
||||
(current-xref-input-modules
|
||||
(cons (cons mod id) (current-xref-input-modules))))]
|
||||
#:once-each
|
||||
[("--quiet") "suppress output-file reporting"
|
||||
(current-quiet #t)]
|
||||
#:args (file . another-file)
|
||||
(let ([files (cons file another-file)])
|
||||
(build-docs (map (lambda (file) (dynamic-require `(file ,file) 'doc))
|
||||
|
@ -104,7 +108,8 @@
|
|||
(send renderer set-external-tag-path (current-redirect)))
|
||||
(when (current-redirect-main)
|
||||
(send renderer set-external-root-url (current-redirect-main)))
|
||||
(send renderer report-output!)
|
||||
(unless (current-quiet)
|
||||
(send renderer report-output!))
|
||||
(let* ([fns (map (lambda (fn)
|
||||
(let-values ([(base name dir?) (split-path fn)])
|
||||
(let ([fn (path-replace-suffix
|
||||
|
|
|
@ -415,8 +415,7 @@ The tag @racket[t] refers to the content form of
|
|||
The @tech{decode}d @racket[pre-content] is hyperlinked to @racket[t],
|
||||
which is normally defined using @racket[elemtag].}
|
||||
|
||||
@defproc[(module-path-prefix->string [mod-path module-path?])
|
||||
string?]{
|
||||
@defproc[(module-path-prefix->string [mod-path module-path?]) string?]{
|
||||
|
||||
Converts a module path to a string by resolving it to a path, and
|
||||
using @racket[path->main-collects-relative].}
|
||||
|
|
|
@ -115,8 +115,7 @@ The optional @racket[using-render%] argument is as for
|
|||
@racket[load-xref].}
|
||||
|
||||
|
||||
@defproc[(xref-tag->index-entry [xref xref?]
|
||||
[tag tag?])
|
||||
@defproc[(xref-tag->index-entry [xref xref?] [tag tag?])
|
||||
(or/c false/c entry?)]{
|
||||
|
||||
Extract an @racket[entry] structure that provides addition information
|
||||
|
|
Loading…
Reference in New Issue
Block a user