* scm/framework-ps.scm (write-preamble): use it to pick exactly

[lilypond.git] / scm / framework-ps.scm

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index 54f0f1c7a25ffdf0095956bc9db23191fa104a43..d2092c8d67539123c9459ff91fa06386a7bace45 100644 (file)
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -281,9 +281,7 @@
         (status 0)
         (embed #f))
 
-
       (mkdir dir-name #o700)
-
       (set! status (ly:system
                    (format "cd ~a && fondu -force '~a'" dir-name filename)))
       
@@ -292,10 +290,10 @@
       (for-each
        (lambda (f)
         (if (and (not embed)
-                 (string-match (string-append name "\\.") f))
+                 (equal? name (ly:ttf-ps-name f)))
             (set! embed
                   (font-file-as-ps-string name (dir-join dir-name f))))
-            
+        
         (if (or (equal? "." f) 
                 (equal? ".." f))
             #t