#include "context.hh"
#include "context-def.hh"
#include "dispatcher.hh"
+#include "grob-properties.hh"
LY_DEFINE (ly_context_current_moment,
"ly:context-current-moment",
LY_ASSERT_SMOB (Context, context, 1);
LY_ASSERT_TYPE (ly_is_symbol, name, 2);
- return updated_grob_properties (tr, name);
+ return Grob_property_info (tr, name).updated ();
}
LY_DEFINE (ly_context_pushpop_property, "ly:context-pushpop-property",
LY_ASSERT_TYPE (ly_is_symbol, sym, 2);
Context *t = Context::unsmob (context);
- SCM result = t->internal_get_property (sym);
+ SCM result = t->get_property (sym);
return def != SCM_UNDEFINED && scm_is_null (result) ? def : result;
}