* 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 5b66db56518d149f110c6c878b6b795eee4a2dfe..cd9ca092e226beea18ca8c7e58a7ba74dd53d95e 100644 (file)
--- 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 8db25eb918b9d3c3483fd2d14d97f1e9715628f4..c6bd8a4a6d6eabe0a0c8070fb7a2b777a31366da 100644 (file)
--- 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 df5c7ded329ffd23c92b36e6a9fee693df297fcc..578ef3339b2a9ab9450aa69a8962736c73efdd1b 100644 (file)
--- 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