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

commit e517a092906c09aef849b8eca1ed1c4da98cf2cd
parent 404c08f8c396a875b044ed16e3ab1bbbb004cd69
Author: Jay McCarthy <jay@racket-lang.org>
Date:   Thu, 16 Feb 2012 14:45:23 -0700

Squelch newline citations

original commit: d7aa944ebac6bed0c7986ede99bd0fa1fb1e61c3

Diffstat:
M
collects/scriblib/bibtex.rkt
 | 
10
+++++++---

1 file changed, 7 insertions(+), 3 deletions(-)
diff --git a/collects/scriblib/bibtex.rkt b/collects/scriblib/bibtex.rkt
@@ -142,9 +142,13 @@
     (define bibtex-db (path->bibdb bib-pth))
     (define-cite autobib-cite autobib-citet generate-bibliography-id)
     (define ((make-citer citer) f . r)
-      (apply citer (map (curry generate-bib bibtex-db) 
-                        (append-map (curry regexp-split #rx" +")
-                                    (cons f r)))))
+      (apply citer 
+             (filter-map 
+              (λ (key)
+                 (and (not (string=? "\n" key))
+                      (generate-bib bibtex-db key)))                     
+              (append-map (curry regexp-split #rx" +")
+                          (cons f r)))))
     (define ~cite-id (make-citer autobib-cite))
     (define citet-id (make-citer autobib-citet))))