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)