Avoid newline before `%%EndFont'.

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index c79c32aa98d11d8307cb70eec770b1e91355c10e..25c14f6cc3b37736d3fcda12939737299240f709 100644 (file)
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -240,7 +240,7 @@
                (set! file-name (ly:string-substitute (ly:get-option 'datadir)
                                                      "" file-name))
                (format
-                "lilypond-datadir (~a) concatstrings (r) file .loadfont"
+                "lilypond-datadir (~a) concatstrings (r) file .loadfont\n"
                 file-name))
              (format "(~a) (r) file .loadfont\n" file-name))
          (format "% cannot find font file: ~a\n" file-name)))
@@ -395,7 +395,7 @@
       (for-each (lambda (f)
                  (format port "\n%%BeginFont: ~a\n" (car f))
                  (display (cdr f) port)
-                 (display "\n%%EndFont\n" port))
+                 (display "%%EndFont\n" port))
                (load-fonts paper)))
   (display (setup-variables paper) port)