Index: tags-html.rkt ================================================================== --- tags-html.rkt +++ tags-html.rkt @@ -193,12 +193,12 @@ ;; Footnotes ;; ;; Private use: (define fn-names null) (define fn-definitions (make-hash)) -(define (fn-id x) (string-append x "_fn")) -(define (fndef-id x) (string-append x "_fndef")) +(define (fn-id x) (here-id (string-append x "_fn"))) +(define (fndef-id x) (here-id (string-append x "_fndef"))) ;; Provided footnote tag functions: (define (html-fn . args) (define name (format "~a" (first args))) (set! fn-names (cons name fn-names))