X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Ffont.scm;h=db07a6d99809759f7d4bd77b26e75b6427f8de18;hb=7a08a215a4d5f71da7e6e5a4ae12dffd9bd4ac1e;hp=539e1aaee21ec42d4629a1c391b6db98b15546f1;hpb=578553a4e9389248ff0377ded3bc33717c5af269;p=lilypond.git

diff --git a/scm/font.scm b/scm/font.scm
index 539e1aaee2..db07a6d998 100644
--- a/scm/font.scm
+++ b/scm/font.scm
@@ -185,7 +185,7 @@ used.  This is used to select the proper design size for the text fonts.
 	       ,(list->vector
 		 (map (lambda (tup)
 			(cons (ly:pt (cdr tup))
-			      (format "~a-~a ~a"
+			      (format #f "~a-~a ~a"
 				      name
 				      (car tup)
 				      (ly:pt (cdr tup)))))
@@ -194,12 +194,12 @@ used.  This is used to select the proper design size for the text fonts.
 		,(list->vector
 		  (map (lambda (size-tup)
 			 (delay (ly:system-font-load
-				 (format "~a-~a" name (car size-tup)))))
+				 (format #f "~a-~a" name (car size-tup)))))
 		       design-size-alist
 		       )))
      (fetaBraces ,(ly:pt 20.0)
 		 #(,(delay (ly:system-font-load
-			    (format "~a-brace" name)))))
+			    (format #f "~a-brace" name)))))
      )))
 		 
 (define-public (add-pango-fonts node lily-family family factor)