* The grand 2005-2006 replace.

[lilypond.git] / scm / font.scm

diff --git a/scm/font.scm b/scm/font.scm
index d72a8d23a197f514d51775eaf137550485a8c0ef..4173aa424269b79281269354cb1056538fa1f183 100644 (file)
--- a/scm/font.scm
+++ b/scm/font.scm
@@ -2,7 +2,7 @@
 ;;;;
 ;;;;  source file of the GNU LilyPond music typesetter
 ;;;; 
-;;;; (c) 2004--2005 Han-Wen Nienhuys <hanwen@xs4all.nl>
+;;;; (c) 2004--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
 
 ;; TODO:
 ;;
@@ -327,15 +327,18 @@
   (add-node 'italic 'bold))
 
 (define-public (make-cmr-tree factor)
-  (let ((n (make-font-tree-node 'font-encoding 'fetaMusic)))
+  (let*
+      ((n (make-font-tree-node 'font-encoding 'fetaMusic))
+       (module (resolve-module '(scm kpathsea)))
+       (find (eval 'ly:kpathsea-find-file module))
+       )
     (add-music-fonts n factor)
     (add-cmr-fonts n factor)
-    (if (defined? 'ly:kpathsea-find-file)
-       (begin
-         (if (ly:kpathsea-find-file "lmr10.pfb")
-             (add-cork-lm-fonts n factor))
-         (if (ly:kpathsea-find-file "ecrm10.pfa")
-             (add-ec-fonts n factor))))
+    
+    (if (find "lmr10.pfb")
+       (add-cork-lm-fonts n factor))
+    (if (find "ecrm10.pfa")
+       (add-ec-fonts n factor))
     n))