SCM frac = me->get_property ("fraction");
int n = 4;
int d = 4;
- if (ly_c_pair_p (frac))
+ if (scm_is_pair (frac))
{
- n = ly_scm2int (ly_car (frac));
- d = ly_scm2int (ly_cdr (frac));
+ n = scm_to_int (ly_car (frac));
+ d = scm_to_int (ly_cdr (frac));
}
Stencil m;
{
m = numbered_time_signature (me, n, 0);
}
- else if (ly_c_symbol_p (st))
+ else if (scm_is_symbol (st))
{
m = special_time_signature (me, st, n, d);
}
ly_symbol2scm ("fetaNumber"))),
chain);
- SCM sn = Text_item::interpret_markup (me->get_paper ()->self_scm (), chain,
+ SCM sn = Text_interface::interpret_markup (me->get_paper ()->self_scm (), chain,
scm_makfrom0str (to_string (num).to_str0 ()));
- SCM sd = Text_item::interpret_markup (me->get_paper ()->self_scm (), chain,
+ SCM sd = Text_interface::interpret_markup (me->get_paper ()->self_scm (), chain,
scm_makfrom0str (to_string (den).to_str0 ()));
Stencil n = *unsmob_stencil (sn);
" typeset with mensural style mensuration marks. All other time\n"
" signatures are written with two digits.\n"
"\n"
-" @item @code{single-digit"
+" @item @code{single-digit}\n"
" All time signatures are typeset with a single\n"
" digit, e.g. 3/2 is written as 3.\n"
" @end table\n"