Replace internal_get_property with get_property where possible

[lilypond.git] / lily / context.cc

diff --git a/lily/context.cc b/lily/context.cc
index 718ef311225dfb0062e8e079990231496a49fbfd..8a85165cfdde63d5aef1c665786d3196b3f6acb0 100644 (file)
--- a/lily/context.cc
+++ b/lily/context.cc
@@ -23,7 +23,6 @@
 #include "dispatcher.hh"
 #include "global-context.hh"
 #include "international.hh"
-#include "ly-smobs.icc"
 #include "main.hh"
 #include "output-def.hh"
 #include "profile.hh"
@@ -715,9 +714,7 @@ Context::mark_smob (SCM sm)
   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
@@ -820,7 +817,7 @@ melisma_busy (Context *tr)
 
   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;
 }