From 7f1da76d54864cc56566b1ac14794d077fdba698 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Tue, 30 Nov 2010 17:44:21 -0500 Subject: [PATCH] Compare author strings, not author structures, in `citet'. --- collects/scriblib/autobib.rkt | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/collects/scriblib/autobib.rkt b/collects/scriblib/autobib.rkt index 0aa4d3fa61..d1f1007210 100644 --- a/collects/scriblib/autobib.rkt +++ b/collects/scriblib/autobib.rkt @@ -47,8 +47,10 @@ (define (add-inline-cite group bib-entries) (for ([i bib-entries]) (hash-set! (bib-group-ht group) i #t)) - (when (and (pair? (cdr bib-entries)) (not (apply equal? (map auto-bib-author bib-entries)))) - (error 'citet "citet must be used with identical authors, given ~a" (map auto-bib-author bib-entries))) + (when (and (pair? (cdr bib-entries)) + (not (apply equal? (map (compose author-element-names auto-bib-author) bib-entries)))) + (error 'citet "citet must be used with identical authors, given ~a" + (map (compose author-element-names auto-bib-author) bib-entries))) (make-element #f (list (add-cite group (car bib-entries) 'autobib-author #f)