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

commit 5bbd6e27121929c9d50d2630ac3a4b1301385d21
parent cc37b26e3509800155fc682fcb45ff06dfefcde3
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Thu, 14 Nov 2013 11:10:45 -0700

scribble: fix a rendering and cross-reference problem

The problem is related to the recently introduced style split between
definitions and references to definitions.

original commit: 44f810aa72468961f73aad3161ea345cd1e3ed30

Diffstat:
M
pkgs/scribble-pkgs/scribble-lib/scribble/private/manual-bind.rkt
 | 
2
+-
M
pkgs/scribble-pkgs/scribble-lib/scribble/private/manual-class.rkt
 | 
3
+--
M
pkgs/scribble-pkgs/scribble-lib/scribble/private/manual-proc.rkt
 | 
2
+-

3 files changed, 3 insertions(+), 4 deletions(-)
diff --git a/pkgs/scribble-pkgs/scribble-lib/scribble/private/manual-bind.rkt b/pkgs/scribble-pkgs/scribble-lib/scribble/private/manual-bind.rkt
@@ -93,7 +93,7 @@
     (define (gen defn?)
       (if sig
           (*sig-elem #:defn? defn? (sig-id sig) name)
-          (annote-exporting-library
+          ((if defn? annote-exporting-library values)
            (to-element #:defn? defn? (make-just-context name stx-id)))))
     (values (gen #t) (gen #f))))
 
diff --git a/pkgs/scribble-pkgs/scribble-lib/scribble/private/manual-class.rkt b/pkgs/scribble-pkgs/scribble-lib/scribble/private/manual-class.rkt
@@ -197,8 +197,7 @@
           (list (let ([target-maker (id-to-target-maker stx-id #t)]
                       [content (annote-exporting-library
                                 (to-element #:defn? #t stx-id))]
-                      [ref-content (annote-exporting-library
-                                    (to-element stx-id))])
+                      [ref-content (to-element stx-id)])
                   (if target-maker
                       (target-maker
                        content
diff --git a/pkgs/scribble-pkgs/scribble-lib/scribble/private/manual-proc.rkt b/pkgs/scribble-pkgs/scribble-lib/scribble/private/manual-proc.rkt
@@ -708,7 +708,7 @@
                            (if link?
                                (let ()
                                  (define (gen defn?)
-                                   (annote-exporting-library
+                                   ((if defn? annote-exporting-library values)
                                     (to-element #:defn? defn? name-id)))
                                  (define content (gen #t))
                                  (define ref-content (gen #f))