]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/lyric-engraver.cc
release: 1.3.0
[lilypond.git] / lily / lyric-engraver.cc
index 37aa4065ee24ce62d85db7b532c56e07f11010ce..080546f2f5fe6524e18e880304043fb607b9f1b1 100644 (file)
@@ -44,9 +44,9 @@ Lyric_engraver::do_process_requests()
       text_p_->text_str_ = req_l_->text_str_;
       text_p_->text_str_ += " ";       // ugh.
 
-      Scalar style = get_property ("textStyle", 0);
-      if (style.length_i ())
-       text_p_->style_str_ = style;
+      SCM style = get_property ("textStyle", 0);
+      if (gh_string_p(style))
+       text_p_->style_str_ = ly_scm2string (style);
 
       text_p_->set_elt_property (non_rhythmic_scm_sym, SCM_BOOL_T);