From ed84cd71a52e5020f199c829c0fe980e3cd2e0bf Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Wed, 15 Jun 2005 00:43:19 +0000 Subject: [PATCH] (write-preamble): use ly:system. (write-preamble): verbosity. --- scm/framework-ps.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm index 6ba4744975..c0318379ef 100644 --- a/scm/framework-ps.scm +++ b/scm/framework-ps.scm @@ -288,7 +288,8 @@ (for-each (lambda (f) - (if (string-match (string-append name "\\.") f) + (if (and (not embed) + (string-match (string-append name "\\.") f)) (set! embed (font-file-as-ps-string name (path-join dir-name f)))) -- 2.39.5