Index: snippets-html.rkt ================================================================== --- snippets-html.rkt +++ snippets-html.rkt @@ -164,11 +164,11 @@

Further Notes

◊(apply string-append note-htmls) }) ;; (private) Returns HTML for a list-item link to a particular page in a set of numbered pages -(define (html$-paginate-link basename pagenum [linktext (format "p. ~a" (number->string pagenum))] [class ""]) +(define (html$-paginate-link basename pagenum [linktext (number->string pagenum)] [class ""]) (define cstr (if (non-empty-string? class) (format " class=\"~a\"" class) "")) (format "~a" cstr basename pagenum linktext)) ;; Returns HTML for a series of list items with links to numbered pages (define (html$-paginate-navlinks pagenum pagecount basename)