fixing obvious bug in figure -> ref-proc

2017-10-30 19:05:29 -04:00 · 2017-10-30 19:05:29 -04:00 · 0d0fda8321
commit 0d0fda8321
parent 564f441d99
1 changed files with 2 additions and 2 deletions
--- a/scribble-lib/scriblib/figure.rkt
+++ b/scribble-lib/scriblib/figure.rkt
@ -150,8 +150,8 @@
        (counter-ref figures tag (string-append initial "igure")
                     #:link-render-style link-style))]
      [(null? (cdr tags))
-       (define tag1 (car tags))
-       (define tag2 (cadr tags))
+       (define tag1 tag)
+       (define tag2 (car tags))
       (make-element #f (list (counter-ref figures tag1 (string-append initial "igures")
                                           #:link-render-style link-style)
                              " and "