From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Wed, 22 Sep 2004 13:33:53 +0000 (+0000)
Subject: (header-to-file): Fix.
X-Git-Tag: release/2.3.19~31
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=b4dca2c1727a496d3c906920db1ff492de9b621c;p=lilypond.git

(header-to-file): Fix.
---

diff --git a/ChangeLog b/ChangeLog
index a84f0b47fb..8efee7fa34 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2004-09-22  Jan Nieuwenhuizen  <janneke@gnu.org>
+
+	* scm/framework-tex.scm (header-to-file): Fix.
+
 2004-09-22  Werner Lemberg  <wl@gnu.org>
 
 	* lily/parser.yy <score_body>: Fix typo.
diff --git a/scm/framework-tex.scm b/scm/framework-tex.scm
index 3b0b9ad094..177b7942b5 100644
--- a/scm/framework-tex.scm
+++ b/scm/framework-tex.scm
@@ -80,8 +80,7 @@
   (display
    (format (_ "Writing header field `~a' to `~a'...")
 	   key
-	   (if (equal? "-" fn) "<stdout>" fn)
-	   (current-error-port))
+	   (if (equal? "-" fn) "<stdout>" fn))
    (current-error-port))
   (if (equal? fn "-")
       (display val)