Index: snippets-html.rkt ================================================================== --- snippets-html.rkt +++ snippets-html.rkt @@ -185,14 +185,17 @@ —◊author-part </div> </div>}) (define (html$-notes-section note-htmls) - ◊string-append{<div class="further-notes" id="furthernotes"> - <h2>Further Notes</h2> - ◊(apply string-append note-htmls) - </div>}) + (cond + [(null? note-htmls) ""] + [else + ◊string-append{<div class="further-notes" id="furthernotes"> + <h2>Further Notes</h2> + ◊(apply string-append note-htmls) + </div>}])) ;; (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 "<li~a><a href=\"/~a-pg~a.html\">~a</a></li>" cstr basename pagenum linktext))