-#include "ly-smobs.icc"
-IMPLEMENT_SIMPLE_SMOBS (Context_mod);
-IMPLEMENT_DEFAULT_EQUAL_P (Context_mod);
-IMPLEMENT_TYPE_P (Context_mod, "ly:context-mod?");
+Context_mod::Context_mod (SCM mod_list)
+{
+ mods_ = scm_reverse (mod_list);
+}
+
+const char Context_mod::type_p_name_[] = "ly:context-mod?";