X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fundead.cc;h=4aed7a60237f12b21d35e7f0eb5fb4aa122dc939;hb=9390065d4c71bf417ef7b5bcbce21821f8668202;hp=db2d6f19e0b9e590f66b56769c0634e29a64117a;hpb=1b5f1825a6655583a6209fedd51b98f4865bb2cd;p=lilypond.git

diff --git a/lily/undead.cc b/lily/undead.cc
index db2d6f19e0..4aed7a6023 100644
--- a/lily/undead.cc
+++ b/lily/undead.cc
@@ -22,9 +22,9 @@
 class Undead : public Simple_smob<Undead>
 {
 public:
-  int print_smob (SCM, scm_print_state *);
+  int print_smob (SCM, scm_print_state *) const;
   SCM mark_smob () const;
-  static const char type_p_name_[];
+  static const char * const type_p_name_;
 private:
   SCM object_;
 public:
@@ -43,7 +43,7 @@ Undead::mark_smob () const
 }
 
 int
-Undead::print_smob (SCM port, scm_print_state *)
+Undead::print_smob (SCM port, scm_print_state *) const
 {
   scm_puts ("#<Undead ", port);
   scm_display (object (), port);
@@ -51,7 +51,7 @@ Undead::print_smob (SCM port, scm_print_state *)
   return 1;
 }
 
-const char Undead::type_p_name_[] = "ly:undead?";
+const char * const Undead::type_p_name_ = "ly:undead?";
 
 LY_DEFINE (ly_make_undead, "ly:make-undead",
            1, 0, 0, (SCM object),