Fix citation disabiguation when authors differ.

collects/scriblib/autobib.rkt

@@ -242,7 +242,8 @@
               [(date<? b a) #f]
               [else (string-ci<? (auto-bib-key a) (auto-bib-key b))]))))
   (define (ambiguous? a b)
-    (and (string-ci=? (extract-bib-key a) (extract-bib-key b))
+    (and (string-ci=? (author-element-cite (extract-bib-author a))
+                      (author-element-cite (extract-bib-author b)))
          (auto-bib-date a)
          (auto-bib-date b)
          (date=? a b)))

collects/tests/scribble/docs/autobib-disambiguation.scrbl

@@ -12,11 +12,18 @@
                      #:location (dissertation-location #:institution "NEU")
                      #:author (authors "Little" "Bo" "Peep")
                      #:date "2012"))
+@(define c (make-bib #:title "Diss 3"
+                     #:is-book? #t
+                     #:location (dissertation-location #:institution "NEU")
+                     #:author (authors "Little" "Bo" "Peep" "Peep2")
+                     #:date "2012"))
 According to the following people,
 @cite[a]
 @cite[b]
+@cite[c]
 @citet[a]
 @citet[b]
+@citet[c]
 @cite[a b]
 @cite[b a]
 @citet[a b]

collects/tests/scribble/docs/autobib-disambiguation.txt

@@ -1,9 +1,10 @@
 According to the following people,  (Little et al. 2012a)  (Little et
-al. 2012b) Little et al. (2012a) Little et al. (2012b)  (Little et al.
-2012a,b)  (Little et al. 2012b,a) Little et al. (2012a,b) Little et
-al. (2012b,a)
+al. 2012b)  (Little et al. 2012c) Little et al. (2012a) Little et
+al. (2012b) Little et al. (2012c)  (Little et al. 2012a,b)  (Little et
+al. 2012b,a) Little et al. (2012a,b) Little et al. (2012b,a)
 
 Bibliography
 
-Little, Bo, and Peep. Diss 1. PhD dissertation, NEU, 2012a.
-Little, Bo, and Peep. Diss 2. PhD dissertation, NEU, 2012b.
+Little, Bo, and Peep. Diss 1. PhD dissertation, NEU, 2012a.       
+Little, Bo, and Peep. Diss 2. PhD dissertation, NEU, 2012b.       
+Little, Bo, Peep, and Peep2. Diss 3. PhD dissertation, NEU, 2012c.