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

commit 378f9c3bae0a40b4e93d83ccca996d22da84fdb2
parent 0ca77cb9f5c89e26fcde89d92295871c354cbeb4
Author: Robby Findler <robby@racket-lang.org>
Date:   Mon, 25 Jun 2012 13:41:06 -0500

adjust defproc* so that it only shows the white background label once, instead
of once per different identifier that it is documenting

original commit: 3afba2d833bbe2349621f4851f4f41569007ed53

Diffstat:
M
collects/scribble/private/manual-proc.rkt
 | 
9
++++++---

1 file changed, 6 insertions(+), 3 deletions(-)
diff --git a/collects/scribble/private/manual-proc.rkt b/collects/scribble/private/manual-proc.rkt
@@ -244,7 +244,7 @@
     (let loop ([p p])
       (if (symbol? (car p)) (car p) (loop (car p)))))
   (define (do-one stx-id prototype args arg-contracts arg-vals result-contract
-                  first?)
+                  first? add-background-label?)
     (let ([names (remq* '(... ...+) (map arg-id args))])
       (unless (= (length names) (length (remove-duplicates names eq?)))
         (error 'defproc "duplicate argument names in prototype for ~s: ~s"
@@ -353,7 +353,7 @@
     (append
      (list
       (list
-       ((if first? (add-background-label (get-label)) values)
+       ((if add-background-label? (add-background-label (get-label)) values)
         (make-flow
          (if short?
              ;; The single-line case:
@@ -500,7 +500,10 @@
                 [(ormap (lambda (a) (eq? (extract-id (car ps)) a)) accum)
                  (cons #f (loop (cdr ps) accum))]
                 [else (cons #t (loop (cdr ps)
-                                     (cons (extract-id (car ps)) accum)))]))))))
+                                     (cons (extract-id (car ps)) accum)))]))
+        (for/list ([p (in-list prototypes)]
+                   [i (in-naturals)])
+          (= i 0))))))
     (content-thunk))))
 
 (define-syntax-rule (defparam id arg contract desc ...)