Index: snippets-html.rkt
==================================================================
--- snippets-html.rkt
+++ snippets-html.rkt
@@ -185,14 +185,17 @@
—◊author-part
})
(define (html$-notes-section note-htmls)
- ◊string-append{
-
Further Notes
- ◊(apply string-append note-htmls)
- })
+ (cond
+ [(null? note-htmls) ""]
+ [else
+ ◊string-append{
+
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 (number->string pagenum)] [class ""])
(define cstr (if (non-empty-string? class) (format " class=\"~a\"" class) ""))
(format "~a" cstr basename pagenum linktext))