@@ -71,16 +71,15 @@

}])) -(define (html$-article-close) +(define (html$-article-close footertext) ◊string-append{
- + }) - (define (html$-page-body-close) ◊string-append{ }) ;; Notes @@ -136,11 +135,11 @@ }) (define (html$-note-in-article id date author author-url contents) ◊string-append{
-

+

◊contents
@@ -147,9 +146,9 @@ —◊|author|

}) (define (html$-notes-section note-htmls) - ◊string-append{
+ ◊string-append{

Further Notes

◊(apply string-append note-htmls)
})