X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Finclude%2Fcontext-mod.hh;h=81b1f34e36c47189b543eda186e84dbf66e6fb98;hb=98b662a091d78893004ee5f7cf4f7e9a6d811f57;hp=36c8885bbcf5cb5dc267e18565f676b5eed66674;hpb=f93e4199873c91ae32f0e84a610d14853dc379df;p=lilypond.git

diff --git a/lily/include/context-mod.hh b/lily/include/context-mod.hh
index 36c8885bbc..81b1f34e36 100644
--- a/lily/include/context-mod.hh
+++ b/lily/include/context-mod.hh
@@ -1,7 +1,7 @@
 /*
   This file is part of LilyPond, the GNU music typesetter.
 
-  Copyright (C) 2010--2011 Reinhold Kainhofer <reinhold@kainhofer.com>
+  Copyright (C) 2010--2015 Reinhold Kainhofer <reinhold@kainhofer.com>
 
   LilyPond is free software: you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
@@ -34,24 +34,23 @@
   Modifications for an interpretation context as given in the
   input.
 */
-struct Context_mod
+struct Context_mod : public Simple_smob<Context_mod>
 {
+  SCM mark_smob () const;
+  int print_smob (SCM, scm_print_state *) const;
+  static const char * const type_p_name_;
 private:
   SCM mods_;
 public:
   void add_context_mod (SCM);
   void add_context_mods (SCM);
 
-  VIRTUAL_COPY_CONSTRUCTOR (Context_mod, Context_mod);
-
   SCM get_mods () const;
 
   Context_mod ();
   Context_mod (Context_mod const &);
-  DECLARE_SIMPLE_SMOBS (Context_mod);
+  Context_mod (SCM mod_list);
 };
 
-DECLARE_UNSMOB (Context_mod, context_mod);
 
 #endif /* CONTEXT_MOD_HH */
-