From 1874c6839ddfb0cc0857061fada2320a9921e56b Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Thu, 11 Mar 2004 15:51:12 +0000 Subject: [PATCH] * scm/output-tex.scm (output-scopes): Bugfix: only write string header fields. * scm/output-ps.scm (new-start-system): New interface function. --- ChangeLog | 3 +++ scm/output-ps.scm | 2 +- scm/output-tex.scm | 2 +- 3 files changed, 5 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 5b66db5651..cd9ca092e2 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,8 @@ 2004-03-11 Jan Nieuwenhuizen + * 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 -- 2.39.5