* lily/main.cc (setup_guile_env): new function. Set GC min_yields

[lilypond.git] / lily / font-metric-scheme.cc

diff --git a/lily/font-metric-scheme.cc b/lily/font-metric-scheme.cc
index 6b7c606423662bba1ff131bbfeddaea8fb45f5c2..5928c2066c33e35d2c542c195dd5864884293f1b 100644 (file)
--- a/lily/font-metric-scheme.cc
+++ b/lily/font-metric-scheme.cc
@@ -137,6 +137,6 @@ LY_DEFINE (ly_font_design_size, "ly:font-design-size", 1, 0, 0,
 {
   Font_metric *fm = unsmob_metrics (font);
   SCM_ASSERT_TYPE (fm, font, SCM_ARG1, __FUNCTION__, "font-metric");
-  return scm_make_real (fm->design_size ());
+  return scm_from_double (fm->design_size ());
 }