* lily/include/lily-guile.hh: compatibility glue for 1.6

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

diff --git a/lily/modified-font-metric.cc b/lily/modified-font-metric.cc
index 2b67671b2da2657a72e298c0573e3e39231cf147..6bb485fa96e236d0ffb1aea2517781a6c3df4fb4 100644 (file)
--- a/lily/modified-font-metric.cc
+++ b/lily/modified-font-metric.cc
@@ -113,7 +113,7 @@ Modified_font_metric::make_scaled_font_metric (SCM coding,
   if (ly_c_symbol_p (coding))
     coding = scm_symbol_to_string (coding);
   
-  String scheme = ly_c_string_p (coding) ? ly_scm2string (coding) : ""; 
+  String scheme = scm_is_string (coding) ? ly_scm2string (coding) : ""; 
   
   Modified_font_metric *sfm = new Modified_font_metric (scheme, m, s);