From 10e6c0b7bdf2ba2ffd070c4cb7099673c5af625d Mon Sep 17 00:00:00 2001 From: Lassi Kortela Date: Wed, 15 Feb 2023 19:38:30 +0200 Subject: [PATCH] Emit HTML --- scm/html/common.scm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/scm/html/common.scm b/scm/html/common.scm index e8ce75d..468c215 100644 --- a/scm/html/common.scm +++ b/scm/html/common.scm @@ -309,7 +309,7 @@ (if (not (string->number where)) (warn "invalid font position `~a' in .fp" where) (mount-font (string->number where) name) ""))) - + (define previous-font 1) (define current-font 1) @@ -560,9 +560,10 @@ (define (emit-HTML-prolog) (let ((mailto (option 'mail-address))) (emit "\n\n") - (emit "\n") - "\n") + (emit "\n") (if mailto (emit "\n"))))