X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fall-font-metrics-scheme.cc;h=685ec537e6ef8c005dcd30efcfa6a70466342be5;hb=9d8942c954e7d44d121c89719aceb91cf83d51ed;hp=a3b19e468d2bf4ea6ad990bab60d55fa76fde6df;hpb=92e8f758e29427d28c413d1998c895b9c61932fd;p=lilypond.git

diff --git a/lily/all-font-metrics-scheme.cc b/lily/all-font-metrics-scheme.cc
index a3b19e468d..685ec537e6 100644
--- a/lily/all-font-metrics-scheme.cc
+++ b/lily/all-font-metrics-scheme.cc
@@ -28,7 +28,8 @@ LY_DEFINE (ly_font_load, "ly:font-load", 1, 0, 0,
 {
   LY_ASSERT_TYPE (scm_is_string, name, 1);
   
-  Font_metric *fm = all_fonts_global->find_font (ly_scm2string (name));
+  string name_str = ly_scm2string (name);
+  Font_metric *fm = all_fonts_global->find_font (name_str);
 
   return fm->self_scm ();
 }