fixing obvious bug in figure -> ref-proc

This commit is contained in:
Matthias Felleisen 2017-10-30 19:05:29 -04:00
parent 564f441d99
commit 0d0fda8321

View File

@ -150,8 +150,8 @@
(counter-ref figures tag (string-append initial "igure") (counter-ref figures tag (string-append initial "igure")
#:link-render-style link-style))] #:link-render-style link-style))]
[(null? (cdr tags)) [(null? (cdr tags))
(define tag1 (car tags)) (define tag1 tag)
(define tag2 (cadr tags)) (define tag2 (car tags))
(make-element #f (list (counter-ref figures tag1 (string-append initial "igures") (make-element #f (list (counter-ref figures tag1 (string-append initial "igures")
#:link-render-style link-style) #:link-render-style link-style)
" and " " and "