#include "group-interface.hh"
#include "misc.hh"
#include "paper-score.hh"
-#include "paper-def.hh"
+#include "output-def.hh"
#include "grob.hh"
#include "spanner.hh"
#include "item.hh"
if (handle != SCM_BOOL_F)
{
- gh_set_cdr_x (handle, gh_cons (thing, gh_cdr (handle)));
+ scm_set_cdr_x (handle, scm_cons (thing, ly_cdr (handle)));
}
else
{
mutable prop list.
*/
handle = scm_sloppy_assq (sym, immutable_property_alist_);
- SCM tail = (handle != SCM_BOOL_F) ? gh_cdr (handle) : SCM_EOL;
- SCM val = gh_cons (thing, tail);
+ SCM tail = (handle != SCM_BOOL_F) ? ly_cdr (handle) : SCM_EOL;
+ SCM val = scm_cons (thing, tail);
- mutable_property_alist_ = gh_cons (gh_cons (sym, val),
+ mutable_property_alist_ = scm_cons (scm_cons (sym, val),
mutable_property_alist_);
}
}
Grob::internal_set_property (SCM s, SCM v)
{
/* Perhaps we simply do the assq_set, but what the heck. */
- if (!live ())
+ if (!is_live ())
return;
if (internal_type_checking_global_b)
s = scm_sloppy_assq (sym, immutable_property_alist_);
- if (internal_type_checking_global_b && gh_pair_p (s))
+ if (internal_type_checking_global_b && ly_c_pair_p (s))
{
- if (!type_check_assignment (sym, gh_cdr (s),
+ if (!type_check_assignment (sym, ly_cdr (s),
ly_symbol2scm ("backend-type?")))
abort ();
bool
-Grob::live () const
+Grob::is_live () const
{
return immutable_property_alist_ != SCM_EOL;
}