From c71ffdc3b9411404d7c6eb7376f3c38d6aab32a1 Mon Sep 17 00:00:00 2001
From: hanwen <hanwen>
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