X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Finclude%2Fsmall-smobs.hh;h=07fd4ef341230a0b996b4dd26af402dccbd75b53;hb=753d6200e9ae51f0a98186478beff2d00d63a62b;hp=41171b4881a5945de45f7e7a7c6e3820e12281ef;hpb=ec074a41f03cf4cd3b914daa1359dd6e0fb2012d;p=lilypond.git

diff --git a/lily/include/small-smobs.hh b/lily/include/small-smobs.hh
index 41171b4881..07fd4ef341 100644
--- a/lily/include/small-smobs.hh
+++ b/lily/include/small-smobs.hh
@@ -32,7 +32,7 @@ public:
   static SCM make_smob (SCM arg1 = SCM_UNDEFINED) {
     SCM_RETURN_NEWSMOB (Smob_base<Super>::smob_tag (), SCM_UNPACK (arg1));
   }
-  SCM mark_smob () { return scm1 (); };
+  SCM mark_smob () const { return scm1 (); };
   static Super *unchecked_unsmob (SCM s) {
     return reinterpret_cast<Super *> (SCM_UNPACK (s));
   }
@@ -52,7 +52,7 @@ public:
                          SCM_UNPACK (arg1),
                          SCM_UNPACK (arg2));
   }
-  SCM mark_smob ()
+  SCM mark_smob () const
   {
     scm_gc_mark (scm2 ());
     return scm1 ();
@@ -80,7 +80,7 @@ public:
                          SCM_UNPACK (arg2),
                          SCM_UNPACK (arg3));
   }
-  SCM mark_smob ()
+  SCM mark_smob () const
   {
     scm_gc_mark (scm3 ());
     scm_gc_mark (scm2 ());