X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fmensural-ligature.cc;h=5a3b3e9543a210e1e95e5338bb838f347ada0014;hb=5d84bfad4626892bcffd05adcced53c8a2329047;hp=3802214068bab0b00f537c250c2d1ee7953ecc2d;hpb=49fbcc8b526edcad8a0650e9d7870b647c43d698;p=lilypond.git diff --git a/lily/mensural-ligature.cc b/lily/mensural-ligature.cc index 3802214068..5a3b3e9543 100644 --- a/lily/mensural-ligature.cc +++ b/lily/mensural-ligature.cc @@ -1,7 +1,7 @@ /* This file is part of LilyPond, the GNU music typesetter. - Copyright (C) 2002--2011 Juergen Reuter , + Copyright (C) 2002--2015 Juergen Reuter , Pal Benko LilyPond is free software: you can redistribute it and/or modify @@ -117,7 +117,7 @@ Stencil internal_brew_primitive (Grob *me) { SCM primitive_scm = me->get_property ("primitive"); - if (primitive_scm == SCM_EOL) + if (scm_is_null (primitive_scm)) { programming_error ("Mensural_ligature:" " undefined primitive -> ignoring grob"); @@ -168,7 +168,7 @@ internal_brew_primitive (Grob *me) duration_log--; case MLP_BREVIS: duration_log--; - suffix = to_string (duration_log) + color + suffix = ::to_string (duration_log) + color + (duration_log < -1 ? "lig" : "") + "mensural"; index = prefix + "s"; out = fm->find_by_name (index + "r" + suffix); @@ -270,7 +270,7 @@ MAKE_SCHEME_CALLBACK (Mensural_ligature, brew_ligature_primitive, 1); SCM Mensural_ligature::brew_ligature_primitive (SCM smob) { - Grob *me = unsmob_grob (smob); + Grob *me = unsmob (smob); return internal_brew_primitive (me).smobbed_copy (); }