Doc-es: update Extending/Scheme tutorial.

[lilypond.git] / lily / undead.cc

diff --git a/lily/undead.cc b/lily/undead.cc
index 40d831615755dc73560903b8390d81fe0bfb2b3c..a328c66cafd0e6e376da5b4a7a4765752ea2a759 100644 (file)
--- a/lily/undead.cc
+++ b/lily/undead.cc
@@ -22,18 +22,18 @@
 class Undead : public Simple_smob<Undead>
 {
 public:
-  int print_smob (SCM, scm_print_state *);
-  SCM mark_smob ();
+  int print_smob (SCM, scm_print_state *) const;
+  SCM mark_smob () const;
   static const char type_p_name_[];
 private:
   SCM object_;
 public:
-  SCM object () { return object_; }
+  SCM object () const { return object_; }
   Undead (SCM object = SCM_UNDEFINED) : object_ (object) { };
 };
 
 SCM
-Undead::mark_smob ()
+Undead::mark_smob () const
 {
   bool saved = parsed_objects_should_be_dead;
   parsed_objects_should_be_dead = false;
@@ -43,7 +43,7 @@ Undead::mark_smob ()
 }
 
 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);