X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Finclude%2Fsmobs.hh;h=9971b19da5023d0711acd4d7a05ae03a3dc8b3a0;hb=87354fef0dcfb6014270d0311abfb45cc57d2726;hp=61b8ae37fd2e64fc3e0f3f0c7111f0910738131b;hpb=ee4bc843ba15ebbedd8578cbb8e5e477925c413f;p=lilypond.git

diff --git a/lily/include/smobs.hh b/lily/include/smobs.hh
index 61b8ae37fd..9971b19da5 100644
--- a/lily/include/smobs.hh
+++ b/lily/include/smobs.hh
@@ -103,7 +103,7 @@
   static int print_smob (SCM s, SCM p, scm_print_state*);	\
   public:							\
   static SCM equal_p (SCM a, SCM b);				\
-  static CL *unsmob (SCM s)					\
+  static CL *unsmob (SCM s) __attribute__((pure))		\
   {								\
     if (SCM_NIMP (s) && SCM_CELL_TYPE (s) == smob_tag_)		\
       return (CL *) SCM_CELL_WORD_1 (s);			\