From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Thu, 11 Mar 2004 15:51:12 +0000 (+0000)
Subject: * scm/output-tex.scm (output-scopes): Bugfix: only write string
X-Git-Tag: release/2.1.31~28
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=1874c6839ddfb0cc0857061fada2320a9921e56b;p=lilypond.git

* scm/output-tex.scm (output-scopes): Bugfix: only write string
header fields.

* scm/output-ps.scm (new-start-system): New interface function.
---

diff --git a/ChangeLog b/ChangeLog
index 5b66db5651..cd9ca092e2 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2004-03-11  Jan Nieuwenhuizen  <janneke@gnu.org>
 
+	* scm/output-tex.scm (output-scopes): Bugfix: only write string
+	header fields.
+
 	* ps/lilyponddefs.ps: Remove automatic page layout.
 
 	* scm/output-ps.scm (new-start-system): New interface function.
diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index 8db25eb918..c6bd8a4a6d 100644
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -321,7 +321,7 @@
     (define (scope-entry->string key var)
       (if (variable-bound? var)
 	  (let ((val (variable-ref var)))
-	    (if (memq key fields)
+	    (if (and (memq sym fields) (string? val))
 		(header-to-file basename key val))
 	    (cond
 	     ((string? val) (ps-string-def prefix key val))
diff --git a/scm/output-tex.scm b/scm/output-tex.scm
index df5c7ded32..578ef3339b 100644
--- a/scm/output-tex.scm
+++ b/scm/output-tex.scm
@@ -106,7 +106,7 @@
 	     ;;(val (if (variable-bound? var) (variable-ref var) '""))
 	     (tex-key (symbol->string sym)))
 	 
-	 (if (memq sym fields)
+	 (if (and (memq sym fields) (string? val))
 	     (header-to-file basename sym val))
 
 	 (cond