#include "item.hh"
#include "stencil.hh"
#include "accidental-interface.hh"
-#include "paper-def.hh"
+#include "output-def.hh"
#include "pitch.hh"
/*
if (to_boolean (a->get_property ("cautionary")))
{
SCM cstyle = a->get_property ("cautionary-style");
- parens = ly_equal_p (cstyle, ly_symbol2scm ("parentheses"));
+ parens = ly_c_equal_p (cstyle, ly_symbol2scm ("parentheses"));
}
SCM accs = a->get_property ("accidentals");
SCM scm_style = a->get_property ("style");
- if (!ly_symbol_p (scm_style)
+ if (!ly_c_symbol_p (scm_style)
&& !parens
&& scm_ilength (accs) == 1)
{
if (caut)
{
SCM cstyle = me->get_property ("cautionary-style");
- parens = ly_equal_p (cstyle, ly_symbol2scm ("parentheses"));
- smaller = ly_equal_p (cstyle, ly_symbol2scm ("smaller"));
+ parens = ly_c_equal_p (cstyle, ly_symbol2scm ("parentheses"));
+ smaller = ly_c_equal_p (cstyle, ly_symbol2scm ("smaller"));
}
SCM scm_style = me->get_property ("style");
String style;
- if (ly_symbol_p (scm_style))
+ if (ly_c_symbol_p (scm_style))
{
style = ly_symbol2string (scm_style);
}
Stencil mol;
for (SCM s = me->get_property ("accidentals");
- ly_pair_p (s); s = ly_cdr (s))
+ ly_c_pair_p (s); s = ly_cdr (s))
{
int alteration = ly_scm2int (ly_car (s));
String font_char = get_fontcharname (style, alteration);