#include "dispatcher.hh"
#include "global-context.hh"
#include "international.hh"
-#include "ly-smobs.icc"
#include "main.hh"
#include "output-def.hh"
#include "profile.hh"
return me->properties_scm_;
}
-IMPLEMENT_SMOBS (Context);
-IMPLEMENT_DEFAULT_EQUAL_P (Context);
-IMPLEMENT_TYPE_P (Context, "ly:context?");
+const char Context::type_p_name_[] = "ly:context?";
Global_context *
Context::get_global_context () const
for (; !busy && scm_is_pair (melisma_properties);
melisma_properties = scm_cdr (melisma_properties))
- busy = busy || to_boolean (tr->internal_get_property (scm_car (melisma_properties)));
+ busy = busy || to_boolean (tr->get_property (scm_car (melisma_properties)));
return busy;
}