My apologies, the code I just posted was missing a `reverse`. Here's the fixed
version:
@(define (sec-number→string tag #:doc [doc #f])
(delayed-element
(λ (the-renderer the-part the-resolve-info)
(define sec-tag (make-section-tag tag #:doc doc))
(define resolved-sec-tag (resolve-get the-part the-resolve-info sec-tag))
(if resolved-sec-tag
(let ()
(unless (and (vector? resolved-sec-tag)
(>= (vector-length resolved-sec-tag) 3))
(error (format (string-append
"Resolved section tag was not a"
" vector of more than 3 elements: ~a")
resolved-sec-tag)))
(define sec-number (vector-ref resolved-sec-tag 2))
(unless (list? sec-number)
(error "Third element of a resolved section tag was not a list."))
(if (= (length sec-number) 1)
(format "Chapter ~a" (car sec-number))
(format "Section ~a" (string-join (map number->string
(reverse sec-number))
"."))))
(elem #:style (style "badlink" '())
tag " #:doc " (format "~s" doc))))
(λ ()
"Section ??")
(λ ()
"Section ??")))
@(define (sec-number-ref tag #:doc [doc #f])
(seclink tag #:doc doc (sec-number→string tag #:doc doc)))
--
You received this message because you are subscribed to the Google Groups
"Racket Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to racket-users+unsubscr...@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.
