- (if (and (not embed)
- (string-match (string-append name "\\.") f))
- (set! embed
- (font-file-as-ps-string name (dir-join dir-name f))))
-
- (if (or (equal? "." f)
- (equal? ".." f))
- #t
- (delete-file (dir-join dir-name f))))
+ (let*
+ ((full-name (dir-join dir-name f)))
+
+ (if (and (not embed)
+ (equal? 'regular (stat:type (stat full-name)))
+ (equal? name (ly:ttf-ps-name full-name)))
+
+ (set! embed
+ (font-file-as-ps-string name full-name)))
+
+ (if (or (equal? "." f)
+ (equal? ".." f))
+ #t
+ (delete-file full-name))))
+
+