]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/stem-engraver.cc
* lily/text-item.cc (interpret_string): new file, select font with
[lilypond.git] / lily / stem-engraver.cc
index 0d36c981a076e636a6dc44f9aa0d8f3b57b26d8a..e5d49a40543671d7aa17d50e58ad9ac6364a4655 100644 (file)
@@ -83,7 +83,7 @@ Stem_engraver::acknowledge_grob (Grob_info i)
              int requested_type = ly_scm2int (tremolo_ev_->get_property ("tremolo-type"));
              SCM f = get_property ("tremoloFlags");
              if (!requested_type)
-               if (ly_number_p (f))
+               if (is_number (f))
                  requested_type = ly_scm2int (f);
                else
                  requested_type = 8; 
@@ -149,13 +149,13 @@ Stem_engraver::stop_translation_timestep ()
        toDO: junk these properties.
        */
       SCM prop = get_property ("stemLeftBeamCount");
-      if (ly_number_p (prop))
+      if (is_number (prop))
        {
          Stem::set_beaming (stem_,ly_scm2int (prop),LEFT);
          daddy_context_->unset_property (ly_symbol2scm ("stemLeftBeamCount"));
        }
       prop = get_property ("stemRightBeamCount");
-      if (ly_number_p (prop))
+      if (is_number (prop))
        {
          Stem::set_beaming (stem_,ly_scm2int (prop), RIGHT);
          daddy_context_->unset_property (ly_symbol2scm ("stemRightBeamCount"));