Oops, think. Fixes fondu invocation.

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index 032f0c5de1f263beae33126e2ce1edd09b3b9233..bd4846654add4ffda7d5d482a886197c972af411 100644 (file)
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -263,7 +263,7 @@
            (dir-helper dir (cons e lst)))))
     (reverse (dir-helper (opendir dir-name) '())))
 
-  (define (handle-mac-font name filename)
+  (define (handle-mac-font name file-name)
     (let* ((dir-name (tmpnam))
           (files '())
           (status 0)
@@ -291,7 +291,7 @@
          (begin
            (set! embed "% failed\n")
            (ly:warning (_ "cannot extract file matching ~a from ~a")
-                       name filename)))
+                       name file-name)))
       embed))
 
   (define (font-file-as-ps-string name file-name font-index)