From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Sun, 27 Feb 2011 14:27:02 +0000 (+0100)
Subject: Oops, think.  Fixes fondu invocation.
X-Git-Tag: release/2.13.52-1~17^2
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=6676af4cf1e319d8f1ed31cd41e29b1e404aec71;p=lilypond.git

Oops, think.  Fixes fondu invocation.
---

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index 032f0c5de1..bd4846654a 100644
--- 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)