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

commit e752f91ee4f33a4a0fe9b9fb081d06668de5ebc0
parent 87f668de09e5a7ef582c4bcfb3466de770d092f2
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Tue, 12 Apr 2011 15:47:02 -0400

`xref-binding->definition-tag': fix two-argument-list mode
 Closes PR 11847

original commit: 00ca86ffc6641892828a0444babd00357a03bb82

Diffstat:
M
collects/scribble/xref.rkt
 | 
2
+-
A
collects/tests/scribble/xref.rkt
 | 
21
+++++++++++++++++++++

2 files changed, 22 insertions(+), 1 deletion(-)
diff --git a/collects/scribble/xref.rkt b/collects/scribble/xref.rkt
@@ -106,7 +106,7 @@
          (let loop ([src (car id/binding)])
            (cond
             [(module-path-index? src)
-             (search src)]
+             (search (list src (cadr id/binding)))]
             [(module-path? src)
              (loop (module-path-index-join src #f))]
             [else
diff --git a/collects/tests/scribble/xref.rkt b/collects/tests/scribble/xref.rkt
@@ -0,0 +1,21 @@
+#lang racket/base
+(require scribble/xref
+         racket/fasl
+         setup/dirs)
+
+(define xref (load-xref (list 
+                         (lambda ()
+                           (cadr
+                            (call-with-input-file*
+                             (build-path (find-doc-dir)
+                                         "reference"
+                                         "out.sxref")
+                             fasl->s-exp))))))
+
+(unless (equal? '(form ((lib "racket/contract.rkt") ->))
+                (xref-binding->definition-tag 
+                 xref 
+                 (list '(lib "contract.rkt" "racket") '->)
+                 #f))
+  (error "failed"))
+