(write-preamble): use ly:system.

(write-preamble): verbosity.

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index 6ba4744975a159728a79b095ec09420090783e1a..c0318379ef45f12b1b02c2fbb32eb053c9d89224 100644 (file)
--- 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))))