- {
- set_property ("pitch-alist", ly_transpose_key_alist (pa, delta.smobbed_copy ()));
- }
-}
-
-IMPLEMENT_TYPE_P (Music, "ly:music?");
-IMPLEMENT_SMOBS (Music);
-IMPLEMENT_DEFAULT_EQUAL_P (Music);
-
-SCM
-Music::internal_get_property (SCM sym) const
-{
- SCM s = scm_sloppy_assq (sym, mutable_property_alist_);
- if (s != SCM_BOOL_F)
- return scm_cdr (s);
-
- s = scm_sloppy_assq (sym, immutable_property_alist_);
- return (s == SCM_BOOL_F) ? SCM_EOL : scm_cdr (s);
-}
-
-SCM
-Music::internal_get_object (SCM s) const
-{
- return internal_get_property (s);
-}
-
-void
-Music::internal_set_object (SCM s, SCM v)
-{
- return internal_set_property (s, v);
-}
-
-void
-Music::internal_set_property (SCM s, SCM v)
-{
- if (do_internal_type_checking_global)
- if (!type_check_assignment (s, v, ly_symbol2scm ("music-type?")))
- abort ();
-
- mutable_property_alist_ = scm_assq_set_x (mutable_property_alist_, s, v);