bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit 9b742bd091a9de0129a3eade84cf55321c1a4b37
parent b61b85f4135a27605a548ceb47fa196c48f49df3
Author: Eli Barzilay <eli@barzilay.org>
Date:   Fri, 21 May 2010 16:30:16 -0400

Small typos, some reformatting.

Fixes PR10920

original commit: c4f67b3e747c1312459737d5ada8dc1b96b1864c

Diffstat:
M
collects/scribble/run.rkt
 | 
7
++++++-
M
collects/scribblings/scribble/base.scrbl
 | 
3
+--
M
collects/scribblings/scribble/xref.scrbl
 | 
3
+--

3 files changed, 8 insertions(+), 5 deletions(-)
diff --git a/collects/scribble/run.rkt b/collects/scribble/run.rkt
@@ -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
diff --git a/collects/scribblings/scribble/base.scrbl b/collects/scribblings/scribble/base.scrbl
@@ -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].}
diff --git a/collects/scribblings/scribble/xref.scrbl b/collects/scribblings/scribble/xref.scrbl
@@ -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