From c5dc6b0957629c75cd5bc64bd77848c207437111 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 8 Aug 2011 08:58:30 -0600 Subject: [PATCH] generalize `#%variable-reference' and add `variable-reference-constant?' Use the new functions to make the expansion of keyword applications to known procedure work with mutation. original commit: 5352d670c401ebd4346f4dbd855a81c078193de4 --- collects/tests/scriblib/bibtex.rkt | 25 +++++++++++++------------ 1 file changed, 13 insertions(+), 12 deletions(-) diff --git a/collects/tests/scriblib/bibtex.rkt b/collects/tests/scriblib/bibtex.rkt index 5cdcde34..2df35c22 100644 --- a/collects/tests/scriblib/bibtex.rkt +++ b/collects/tests/scriblib/bibtex.rkt @@ -9,15 +9,16 @@ (let () (define-bibtex-cite example.bib ~cite-id citet-id generate-bibliography-id) - (test - (~cite-id "cryptoeprint:2000:067") - (~cite-id "Tobin-Hochstadt:2011fk") - (~cite-id "cryptoeprint:2000:067" "Tobin-Hochstadt:2011fk") - (~cite-id "cryptoeprint:2000:067 Tobin-Hochstadt:2011fk") - - (citet-id "cryptoeprint:2000:067") - (citet-id "Tobin-Hochstadt:2011fk") - (citet-id "Tobin-Hochstadt:2011fk" "Tobin-Hochstadt:2011fk") - (citet-id "Tobin-Hochstadt:2011fk Tobin-Hochstadt:2011fk") - - (generate-bibliography-id)))) + + (~cite-id "cryptoeprint:2000:067") + (~cite-id "Tobin-Hochstadt:2011fk") + (~cite-id "cryptoeprint:2000:067" "Tobin-Hochstadt:2011fk") + (~cite-id "cryptoeprint:2000:067 Tobin-Hochstadt:2011fk") + + (citet-id "cryptoeprint:2000:067") + (citet-id "Tobin-Hochstadt:2011fk") + (citet-id "Tobin-Hochstadt:2011fk" "Tobin-Hochstadt:2011fk") + (citet-id "Tobin-Hochstadt:2011fk Tobin-Hochstadt:2011fk") + + (generate-bibliography-id))) +