Issue 4459/2: Mark print_smob (...) member functions as const

diff --git a/lily/context-def.cc b/lily/context-def.cc
index 62895966038f63ec9737f85ff1a9bb392382da00..3258297b49539e2af7ed329eba280fc1b4192e6c 100644 (file)
--- a/lily/context-def.cc
+++ b/lily/context-def.cc
@@ -85,7 +85,7 @@ Context_def::~Context_def ()
 const char Context_def::type_p_name_[] = "ly:context-def?";
 
 int
-Context_def::print_smob (SCM port, scm_print_state *)
+Context_def::print_smob (SCM port, scm_print_state *) const
 {
   scm_puts ("#<Context_def ", port);
   scm_display (context_name_, port);

diff --git a/lily/context-mod.cc b/lily/context-mod.cc
index c45e4f4d1a40c69ec1560d0b355f6eaa9cf895dd..a533da2cbd05f4f2e990263e6396d2a4fb536491 100644 (file)
--- a/lily/context-mod.cc
+++ b/lily/context-mod.cc
@@ -37,7 +37,7 @@ Context_mod::Context_mod (SCM mod_list)
 const char Context_mod::type_p_name_[] = "ly:context-mod?";
 
 int
-Context_mod::print_smob (SCM port, scm_print_state *)
+Context_mod::print_smob (SCM port, scm_print_state *) const
 {
   scm_puts ("#<Context_mod ", port);
   scm_display (get_mods (), port);

diff --git a/lily/context.cc b/lily/context.cc
index da92c0748c01f03086863dbcf8bbc3d76e422dc7..416a5ccbcf9cba2d236b11ba8032bc7007f7c313 100644 (file)
--- a/lily/context.cc
+++ b/lily/context.cc
@@ -692,7 +692,7 @@ Context::now_mom () const
 }
 
 int
-Context::print_smob (SCM port, scm_print_state *)
+Context::print_smob (SCM port, scm_print_state *) const
 {
   scm_puts ("#<", port);
   scm_puts (class_name (), port);

diff --git a/lily/dispatcher.cc b/lily/dispatcher.cc
index 1cb7dfaa87f2e9d3ecf722680094a60974ee2f90..1d5c759596b79fb1d8c027273e3423ea1db9b30b 100644 (file)
--- a/lily/dispatcher.cc
+++ b/lily/dispatcher.cc
@@ -49,7 +49,7 @@ Dispatcher::mark_smob () const
 }
 
 int
-Dispatcher::print_smob (SCM p, scm_print_state *)
+Dispatcher::print_smob (SCM p, scm_print_state *) const
 {
   scm_puts ("#<Dispatcher ", p);
   scm_write (scm_call_1 (ly_lily_module_constant ("hash-table->alist"),

diff --git a/lily/duration.cc b/lily/duration.cc
index 4768f015b501c6510f52b373fb4625d94f168889..0b1001954072852ea366ad18c257aa19ef0fb4e0 100644 (file)
--- a/lily/duration.cc
+++ b/lily/duration.cc
@@ -140,7 +140,7 @@ const char Duration::type_p_name_[] = "ly:duration?";
 
 
 int
-Duration::print_smob (SCM port, scm_print_state *)
+Duration::print_smob (SCM port, scm_print_state *) const
 {
   scm_puts ("#<Duration ", port);
   scm_display (ly_string2scm (to_string ()), port);

diff --git a/lily/font-metric.cc b/lily/font-metric.cc
index 674aef76a9d6b0af07330eeb464461f5374e5e35..f2b6a0e1476c2e669a1917d47f8d17343960ac37 100644 (file)
--- a/lily/font-metric.cc
+++ b/lily/font-metric.cc
@@ -102,7 +102,7 @@ Font_metric::mark_smob () const
 }
 
 int
-Font_metric::print_smob (SCM port, scm_print_state *)
+Font_metric::print_smob (SCM port, scm_print_state *) const
 {
   scm_puts ("#<", port);
   scm_puts (class_name (), port);

diff --git a/lily/grob-array.cc b/lily/grob-array.cc
index 1cabe136ed6a1b191905a617f83cfbe6b8609ebf..8fc60387bcaee89dec9fde986e04b0fa796f4e51 100644 (file)
--- a/lily/grob-array.cc
+++ b/lily/grob-array.cc
@@ -62,7 +62,7 @@ Grob_array::mark_smob () const
 }
 
 int
-Grob_array::print_smob (SCM port, scm_print_state *)
+Grob_array::print_smob (SCM port, scm_print_state *) const
 {
   scm_puts ("#<Grob_array", port);
   for (vsize i = 0; i < size (); i++)

diff --git a/lily/grob-smob.cc b/lily/grob-smob.cc
index d038f9b84030bcc75ca906fd7478783a89706b9f..066b700a252004ac86f809d721208c1f243fa8d9 100644 (file)
--- a/lily/grob-smob.cc
+++ b/lily/grob-smob.cc
@@ -50,7 +50,7 @@ Grob::mark_smob () const
 }
 
 int
-Grob::print_smob (SCM port, scm_print_state *)
+Grob::print_smob (SCM port, scm_print_state *) const
 {
   scm_puts ("#<Grob ", port);
   scm_puts ((char *) name ().c_str (), port);

diff --git a/lily/include/context-def.hh b/lily/include/context-def.hh
index e8e8d3b68e70440097af9db052d8445184c8efa2..c49fee1e305a6ada60a051ac52400a0e7044bfae 100644 (file)
--- a/lily/include/context-def.hh
+++ b/lily/include/context-def.hh
@@ -34,7 +34,7 @@
 struct Context_def : public Smob<Context_def>
 {
   SCM mark_smob () const;
-  int print_smob (SCM, scm_print_state *);
+  int print_smob (SCM, scm_print_state *) const;
   static const char type_p_name_[];
   virtual ~Context_def ();
 private:

diff --git a/lily/include/context-mod.hh b/lily/include/context-mod.hh
index cef084c87e9049000173b6178e098698b4a2867d..c9f0caa8fbb9c32228b28ae56a0df1c14ad37deb 100644 (file)
--- a/lily/include/context-mod.hh
+++ b/lily/include/context-mod.hh
@@ -37,7 +37,7 @@
 struct Context_mod : public Simple_smob<Context_mod>
 {
   SCM mark_smob () const;
-  int print_smob (SCM, scm_print_state *);
+  int print_smob (SCM, scm_print_state *) const;
   static const char type_p_name_[];
 private:
   SCM mods_;

diff --git a/lily/include/context.hh b/lily/include/context.hh
index 85e2d1f44ca7a3c93c1e8bff55fb5855d0eea3c5..28e80fd2db070b32001b82ceaf508a11869f3977 100644 (file)
--- a/lily/include/context.hh
+++ b/lily/include/context.hh
@@ -32,7 +32,7 @@ class Context : public Smob<Context>
 {
 public:
   SCM mark_smob () const;
-  int print_smob (SCM, scm_print_state *);
+  int print_smob (SCM, scm_print_state *) const;
   static const char type_p_name_[];
   virtual ~Context ();
 private:

diff --git a/lily/include/dispatcher.hh b/lily/include/dispatcher.hh
index a7c96f9201ed3e6633beba056a13fa07fe9bca73..f0eb30ba6dc41d8d8ad392e362d6ec480a7fa49d 100644 (file)
--- a/lily/include/dispatcher.hh
+++ b/lily/include/dispatcher.hh
@@ -27,7 +27,7 @@
 class Dispatcher : public Smob<Dispatcher>
 {
 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_[];
   virtual ~Dispatcher ();

diff --git a/lily/include/duration.hh b/lily/include/duration.hh
index b752e329b8404daa2ff603f5d36197152d4eee68..7a57cf53af6a4ff5dd333266173374a89bac9591 100644 (file)
--- a/lily/include/duration.hh
+++ b/lily/include/duration.hh
@@ -28,7 +28,7 @@
 struct Duration : public Simple_smob<Duration>
 {
   static SCM equal_p (SCM, SCM);
-  int print_smob (SCM, scm_print_state *);
+  int print_smob (SCM, scm_print_state *) const;
   static const char type_p_name_[];
   Duration ();
   Duration (int, int);

diff --git a/lily/include/font-metric.hh b/lily/include/font-metric.hh
index f1917b0c4af402029b09af25ab00fdfb097eb26e..d74c8157ca9f50003aa1777d9cb35ed3d8923b19 100644 (file)
--- a/lily/include/font-metric.hh
+++ b/lily/include/font-metric.hh
@@ -33,7 +33,7 @@ typedef std::map<FT_UInt, FT_ULong> Index_to_charcode_map;
 class Font_metric : public Smob<Font_metric>
 {
 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_[];
   virtual ~Font_metric ();

diff --git a/lily/include/grob-array.hh b/lily/include/grob-array.hh
index e3631c8ea9128e526694bea200210664e3adb62e..e3963f019dba3451e7961e5d8fcc6fb87db7bfcf 100644 (file)
--- a/lily/include/grob-array.hh
+++ b/lily/include/grob-array.hh
@@ -27,7 +27,7 @@
 class Grob_array : public Simple_smob<Grob_array>
 {
 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_[];
 private:
@@ -41,7 +41,7 @@ public:
   void set_ordered (bool b) { ordered_ = b; }
   Item *item (vsize i);
   Spanner *spanner (vsize i);
-  Grob *grob (vsize i) { return grobs_.at (i); }
+  Grob *grob (vsize i) const { return grobs_.at (i); }
   vsize size () const { return grobs_.size (); }
   bool empty () const;
   void remove_duplicates ();

diff --git a/lily/include/grob.hh b/lily/include/grob.hh
index 5dea5a948c80c572101060161a2dc3c8f15e1ed0..819c86c287af033314adec15a6249e9093ad4868 100644 (file)
--- a/lily/include/grob.hh
+++ b/lily/include/grob.hh
@@ -30,7 +30,7 @@
 class Grob : public Smob<Grob>
 {
 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_[];
   virtual ~Grob ();

diff --git a/lily/include/input.hh b/lily/include/input.hh
index cde9b87893d9fab05b0a2ad701b0d9c86e0b0f9a..7177baad0ad06dedd5bc847049c3de33a83882fa 100644 (file)
--- a/lily/include/input.hh
+++ b/lily/include/input.hh
@@ -33,7 +33,7 @@ class Input : public Simple_smob<Input>
   Source_file *source_file_;
 public:
   static const char type_p_name_[];
-  int print_smob (SCM, scm_print_state *);
+  int print_smob (SCM, scm_print_state *) const;
   static SCM equal_p (SCM, SCM);
   SCM mark_smob () const;
   Source_file *get_source_file () const;

diff --git a/lily/include/lily-lexer.hh b/lily/include/lily-lexer.hh
index 7a4bc15de560fe49e77e8947784d97674b06a569..0e001ec187a76aae50ecf7aec3e312349df280a3 100644 (file)
--- a/lily/include/lily-lexer.hh
+++ b/lily/include/lily-lexer.hh
@@ -34,7 +34,7 @@ void set_lexer ();
 class Lily_lexer : public Smob<Lily_lexer>, public Includable_lexer
 {
 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_[];
   virtual ~Lily_lexer ();

diff --git a/lily/include/lily-parser.hh b/lily/include/lily-parser.hh
index cb36382b3b058d231323c9ad1d79ba7b78e2cc29..b08df7c7a4ab487f5329b6f4f981a1b2c68f234b 100644 (file)
--- a/lily/include/lily-parser.hh
+++ b/lily/include/lily-parser.hh
@@ -34,7 +34,7 @@ class Lily_parser : public Smob<Lily_parser>
   SCM do_yyparse ();
   static SCM do_yyparse_trampoline (void *parser);
 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_[];
   virtual ~Lily_parser ();

diff --git a/lily/include/moment.hh b/lily/include/moment.hh
index 80a78fbf5976b5764db01d2349a21ec190b6cd2f..d84a992b40e73eb6b649476ffb14481558f259d4 100644 (file)
--- a/lily/include/moment.hh
+++ b/lily/include/moment.hh
@@ -31,7 +31,7 @@ class Moment : public Simple_smob<Moment>
 {
 public:
   static SCM equal_p (SCM, SCM);
-  int print_smob (SCM, scm_print_state *);
+  int print_smob (SCM, scm_print_state *) const;
   static const char type_p_name_[];
   Moment ();
   Moment (int m);

diff --git a/lily/include/music-function.hh b/lily/include/music-function.hh
index b0ed99732a6a06abf0f6b03ab44a8c6b09628526..f2c349a3e1cdfd1f2bb6572c3c54c727b973bfe4 100644 (file)
--- a/lily/include/music-function.hh
+++ b/lily/include/music-function.hh
@@ -28,9 +28,9 @@ class Music_function : public Smob2<Music_function>
 {
 public:
   static const char type_p_name_[];
-  int print_smob (SCM, scm_print_state *);
-  SCM get_signature () { return scm1 (); }
-  SCM get_function () { return scm2 (); }
+  int print_smob (SCM, scm_print_state *) const;
+  SCM get_signature () const { return scm1 (); }
+  SCM get_function () const { return scm2 (); }
   SCM call (SCM args);
   LY_DECLARE_SMOB_PROC (&Music_function::call, 0, 0, 1);
 };

diff --git a/lily/include/music-iterator.hh b/lily/include/music-iterator.hh
index 30f27ba894067c889c4cb63b7a10388956d91807..de53608ed5d9fbaa13bc82248b0550e7a1f04709 100644 (file)
--- a/lily/include/music-iterator.hh
+++ b/lily/include/music-iterator.hh
@@ -61,7 +61,7 @@
 class Music_iterator : public Smob<Music_iterator>
 {
 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_[];
   virtual ~Music_iterator ();

diff --git a/lily/include/music-output.hh b/lily/include/music-output.hh
index 3d1d25728a4a4a08e329069da647ba95651ed7ff..dc1111b78ac58b9070f5ecb352baac9d522d2ca4 100644 (file)
--- a/lily/include/music-output.hh
+++ b/lily/include/music-output.hh
@@ -29,7 +29,7 @@
 class Music_output : public Smob<Music_output>
 {
 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_[];
   virtual ~Music_output ();

diff --git a/lily/include/output-def.hh b/lily/include/output-def.hh
index 5712639cb087451c544125fc87311ae7b395e0d8..5de672e67addf202f1609017da8d0d838272bb81 100644 (file)
--- a/lily/include/output-def.hh
+++ b/lily/include/output-def.hh
@@ -49,7 +49,7 @@
 class Output_def : public Smob<Output_def>
 {
 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_[];
   virtual ~Output_def ();

diff --git a/lily/include/pitch.hh b/lily/include/pitch.hh
index 3e78b7995263d865b641673a6c9da7eb109474e7..daade82e81994b5e06ca2d2103fbe58cc4bd1d04 100644 (file)
--- a/lily/include/pitch.hh
+++ b/lily/include/pitch.hh
@@ -36,7 +36,7 @@ class Pitch : public Simple_smob<Pitch>
 {
 public:
   static SCM equal_p (SCM, SCM);
-  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_[];
 private:

diff --git a/lily/include/prob.hh b/lily/include/prob.hh
index 1f437ac5ef20cbb79208cb2ab4015b205eacfb1b..7a06e4773705cc301e4add6dc0b93dca1fc5104d 100644 (file)
--- a/lily/include/prob.hh
+++ b/lily/include/prob.hh
@@ -34,7 +34,7 @@
 class Prob : public Smob<Prob>
 {
 public:
-  int print_smob (SCM, scm_print_state *);
+  int print_smob (SCM, scm_print_state *) const;
   SCM mark_smob () const;
   static SCM equal_p (SCM, SCM);
   static const char type_p_name_[];

diff --git a/lily/include/scm-hash.hh b/lily/include/scm-hash.hh
index 8a1922d3c375bc2140e8f240cf56fcd6816c2be8..f77ba50635a4227d40847e56da2f743cf71eb0f5 100644 (file)
--- a/lily/include/scm-hash.hh
+++ b/lily/include/scm-hash.hh
@@ -46,7 +46,7 @@
 class Scheme_hash_table : public Smob<Scheme_hash_table>
 {
 public:
-  int print_smob (SCM, scm_print_state *);
+  int print_smob (SCM, scm_print_state *) const;
   SCM mark_smob () const;
   virtual ~Scheme_hash_table ();
   bool try_retrieve (SCM key, SCM *val);

diff --git a/lily/include/simple-closure.hh b/lily/include/simple-closure.hh
index 8903bba1facf9497e8e0b2b034c5179626b8452e..49e501c80a2a252d12780756c3ebb65c009c3a8a 100644 (file)
--- a/lily/include/simple-closure.hh
+++ b/lily/include/simple-closure.hh
@@ -27,7 +27,7 @@ class Simple_closure : public Smob1<Simple_closure>
 {
 public:
   SCM expression() const { return scm1 (); }
-  int print_smob (SCM, scm_print_state *);
+  int print_smob (SCM, scm_print_state *) const;
   static const char type_p_name_[];
 };
 

diff --git a/lily/include/smobs.hh b/lily/include/smobs.hh
index c5edc4b01f63a0cad022360a25006f96e8ba9e99..9ccaa61345565a02a4a50d5ac6d402389993b934 100644 (file)
--- a/lily/include/smobs.hh
+++ b/lily/include/smobs.hh
@@ -181,7 +181,7 @@ private:
   static SCM mark_trampoline (SCM); // Used for calling mark_smob
   static size_t free_smob (SCM obj);
   static SCM equal_p (SCM, SCM);
-  int print_smob (SCM, scm_print_state *);
+  int print_smob (SCM, scm_print_state *) const;
   static int print_trampoline (SCM, SCM, scm_print_state *);
   static void smob_proc_init (scm_t_bits) { };
 

diff --git a/lily/include/smobs.tcc b/lily/include/smobs.tcc
index c063da2f93db657e5b7f6705694ffd243079bf87..714289f47fcd8e83fa858f9b70e538188653e6db 100644 (file)
--- a/lily/include/smobs.tcc
+++ b/lily/include/smobs.tcc
@@ -88,7 +88,7 @@ Smob_base<Super>::equal_p (SCM, SCM)
 
 template <class Super>
 int
-Smob_base<Super>::print_smob (SCM p, scm_print_state *)
+Smob_base<Super>::print_smob (SCM p, scm_print_state *) const
 {
   scm_puts ("#<", p);
   scm_puts (smob_name_.c_str (), p);

diff --git a/lily/include/source-file.hh b/lily/include/source-file.hh
index 8c67cd9be54c1d15df96ad47cdc91e97f912d2af..6686389289e3cc04909d7aff588a38a719115cc7 100644 (file)
--- a/lily/include/source-file.hh
+++ b/lily/include/source-file.hh
@@ -38,7 +38,7 @@ using namespace std;
 class Source_file : public Smob<Source_file>
 {
 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_[];
   virtual ~Source_file ();

diff --git a/lily/include/translator-group.hh b/lily/include/translator-group.hh
index a7d3a4da1bf8404e8d1173012ebc1790373aa48a..d90c2929de2d3d93a5271fae07250108c5b730f1 100644 (file)
--- a/lily/include/translator-group.hh
+++ b/lily/include/translator-group.hh
@@ -51,7 +51,7 @@ class Translator_group : public Smob<Translator_group>
 {
 public:
   SCM mark_smob () const;
-  int print_smob (SCM, scm_print_state *);
+  int print_smob (SCM, scm_print_state *) const;
   static const char type_p_name_[];
   virtual ~Translator_group ();
 private:

diff --git a/lily/include/translator.hh b/lily/include/translator.hh
index 74f9ecb14628aa4db6731705767f6065a052ac8a..8154409efced3e763e13a6bd5862a371d8f7ae81 100644 (file)
--- a/lily/include/translator.hh
+++ b/lily/include/translator.hh
@@ -96,7 +96,7 @@ public:
   // as the timing of Engraver is exercised from within Translator
   typedef void (Translator::*Grob_info_callback) (Grob_info);
   typedef void (Translator::*Callback) (void);
-  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_[];
   virtual ~Translator ();

diff --git a/lily/include/unpure-pure-container.hh b/lily/include/unpure-pure-container.hh
index 5166f590a4bcfaae12524a35d8eb207c4f394e1c..92974fe8f069d6e5e199916db70f50f166cb1bfd 100644 (file)
--- a/lily/include/unpure-pure-container.hh
+++ b/lily/include/unpure-pure-container.hh
@@ -39,7 +39,7 @@ public:
       return Smob2<Unpure_pure_container>::make_smob (a, a);
     return Smob2<Unpure_pure_container>::make_smob (a, b);
   }
-  int print_smob (SCM, scm_print_state *);
+  int print_smob (SCM, scm_print_state *) const;
 };
 
 #endif /* UNPURE_PURE_CONTAINER_HH */

diff --git a/lily/input-smob.cc b/lily/input-smob.cc
index 830f946612543bfda7c5c7c3db09061c3398e610..f9de264277307556a0eec0c3ea296a030f5aa0e9 100644 (file)
--- a/lily/input-smob.cc
+++ b/lily/input-smob.cc
@@ -37,7 +37,7 @@ Input::mark_smob () const
 }
 
 int
-Input::print_smob (SCM port, scm_print_state *)
+Input::print_smob (SCM port, scm_print_state *) const
 {
   string str = "#<location " + location_string () + ">";
   scm_puts (str.c_str (), port);

diff --git a/lily/lily-lexer.cc b/lily/lily-lexer.cc
index 6d4de7f7fe02b99ea4b9e4502925eaee67a8a15e..467876f036c4cbf12c2d112815bf4f8f96854663 100644 (file)
--- a/lily/lily-lexer.cc
+++ b/lily/lily-lexer.cc
@@ -382,7 +382,7 @@ Lily_lexer::mark_smob () const
 }
 
 int
-Lily_lexer::print_smob (SCM port, scm_print_state *)
+Lily_lexer::print_smob (SCM port, scm_print_state *) const
 {
   scm_puts ("#<Lily_lexer ", port);
   scm_display (scopes_, port);

diff --git a/lily/lily-parser.cc b/lily/lily-parser.cc
index 54b0211d152822a42454047d7044bbf3394f6f71..31889742843cd750355ad2d4d64131233db438e4 100644 (file)
--- a/lily/lily-parser.cc
+++ b/lily/lily-parser.cc
@@ -84,7 +84,7 @@ Lily_parser::mark_smob () const
 }
 
 int
-Lily_parser::print_smob (SCM port, scm_print_state *)
+Lily_parser::print_smob (SCM port, scm_print_state *) const
 {
   scm_puts ("#<Lily_parser ", port);
   if (lexer_)

diff --git a/lily/moment.cc b/lily/moment.cc
index 6fbd55f498876c0a604deb1007efd673cc23cf4b..81ab30e3aebebfe5bde60d265e31f94d257efdf7 100644 (file)
--- a/lily/moment.cc
+++ b/lily/moment.cc
@@ -48,7 +48,7 @@ const char Moment::type_p_name_[] = "ly:moment?";
 
 
 int
-Moment::print_smob (SCM port, scm_print_state *)
+Moment::print_smob (SCM port, scm_print_state *) const
 {
   scm_puts ("#<Mom ", port);
   string str = to_string ();

diff --git a/lily/music-function.cc b/lily/music-function.cc
index da0860b9fe770f0a6a6b8d20b2fb8fce98809e62..d8f7d3a27cde9768bb489431ef62def04da65e26 100644 (file)
--- a/lily/music-function.cc
+++ b/lily/music-function.cc
@@ -27,7 +27,7 @@ const char Music_function::type_p_name_[] = "ly:music-function?";
 
 /* Print a textual represenation of the smob to a given port.  */
 int
-Music_function::print_smob (SCM port, scm_print_state *)
+Music_function::print_smob (SCM port, scm_print_state *) const
 {
   scm_puts ("#<Music function ", port);
   scm_write (get_function (), port);

diff --git a/lily/music-iterator.cc b/lily/music-iterator.cc
index ced7fa795210b67d14e9f464331bbab8ff441e1d..b89e92c28ec968f2f13bfbfff070a440d891ce7f 100644 (file)
--- a/lily/music-iterator.cc
+++ b/lily/music-iterator.cc
@@ -212,7 +212,7 @@ Music_iterator::mark_smob () const
 }
 
 int
-Music_iterator::print_smob (SCM port, scm_print_state *)
+Music_iterator::print_smob (SCM port, scm_print_state *) const
 {
   char s[1000];
 

diff --git a/lily/music-output.cc b/lily/music-output.cc
index dbbf606083e15e3ad1ed9dd73519ce709409574d..7b89b853f6c29c332aad8292c3f828912db3ff1d 100644 (file)
--- a/lily/music-output.cc
+++ b/lily/music-output.cc
@@ -49,7 +49,7 @@ Music_output::mark_smob () const
 }
 
 int
-Music_output::print_smob (SCM p, scm_print_state *)
+Music_output::print_smob (SCM p, scm_print_state *) const
 {
   scm_puts ("#<", p);
   scm_puts (class_name (), p);

diff --git a/lily/output-def.cc b/lily/output-def.cc
index 4415f83f9d82329a67f06d70458a5a012e8e2d0b..d8fdc2e49d499cb592fbc6987af14d18bc0a9511 100644 (file)
--- a/lily/output-def.cc
+++ b/lily/output-def.cc
@@ -95,7 +95,7 @@ find_context_def (Output_def const *m, SCM name)
 }
 
 int
-Output_def::print_smob (SCM p, scm_print_state *)
+Output_def::print_smob (SCM p, scm_print_state *) const
 {
   scm_puts ("#< ", p);
   scm_puts (class_name (), p);

diff --git a/lily/pitch.cc b/lily/pitch.cc
index 77726515254e4039794d8291f39510f1285fa58c..e34562fecc5571fe83ab21b5c3b5df677ffb36d9 100644 (file)
--- a/lily/pitch.cc
+++ b/lily/pitch.cc
@@ -227,7 +227,7 @@ Pitch::mark_smob () const
 }
 
 int
-Pitch::print_smob (SCM port, scm_print_state *)
+Pitch::print_smob (SCM port, scm_print_state *) const
 {
   scm_puts ("#<Pitch ", port);
   scm_display (ly_string2scm (to_string ()), port);

diff --git a/lily/prob.cc b/lily/prob.cc
index 3f6ba2fef1b773a4e5b06ffa8987e798d6a916dc..d4ea432f036e0f96d1ca9089b92c9074389a6bab 100644 (file)
--- a/lily/prob.cc
+++ b/lily/prob.cc
@@ -124,7 +124,7 @@ Prob::mark_smob () const
 }
 
 int
-Prob::print_smob (SCM port, scm_print_state *)
+Prob::print_smob (SCM port, scm_print_state *) const
 {
   scm_puts ("#<", port);
   scm_puts ("Prob: ", port);

diff --git a/lily/scm-hash.cc b/lily/scm-hash.cc
index a9c26c620dd168b1e863f2a279823d525df144e1..08419d83dd0d223fcff7592af87f9a24cfec2f88 100644 (file)
--- a/lily/scm-hash.cc
+++ b/lily/scm-hash.cc
@@ -79,7 +79,7 @@ Scheme_hash_table::mark_smob () const
 }
 
 int
-Scheme_hash_table::print_smob (SCM p, scm_print_state *)
+Scheme_hash_table::print_smob (SCM p, scm_print_state *) const
 {
   scm_puts ("#<Scheme_hash_table  ", p);
   scm_display (hash_tab_, p);

diff --git a/lily/simple-closure.cc b/lily/simple-closure.cc
index 37759ebfabeaff1ca0d5e0a8a5ab27708ec04027..465640eef59fc48f6de2ed6073ced7e1972ccb8f 100644 (file)
--- a/lily/simple-closure.cc
+++ b/lily/simple-closure.cc
@@ -114,7 +114,7 @@ LY_DEFINE (ly_eval_simple_closure, "ly:eval-simple-closure",
 }
 
 int
-Simple_closure::print_smob (SCM port, scm_print_state *)
+Simple_closure::print_smob (SCM port, scm_print_state *) const
 {
   scm_puts ("#<simple-closure ", port);
   scm_display (expression (), port);

diff --git a/lily/source-file.cc b/lily/source-file.cc
index b06edbf0b3a6a8af9a780c66dbbe03f9ae632bb3..5a94927a7ffb549977f5b284f5fda18f3bdf91a6 100644 (file)
--- a/lily/source-file.cc
+++ b/lily/source-file.cc
@@ -371,7 +371,7 @@ Source_file::mark_smob () const
 }
 
 int
-Source_file::print_smob (SCM port, scm_print_state *)
+Source_file::print_smob (SCM port, scm_print_state *) const
 {
   scm_puts ("#<Source_file ", port);
   scm_puts (name_.c_str (), port);

diff --git a/lily/translator-group.cc b/lily/translator-group.cc
index fc1c2a8a7b385c90c2aa1127312f05161724d4c2..831a4790b08da67363a9106c7c4ff24ebe7aa4e1 100644 (file)
--- a/lily/translator-group.cc
+++ b/lily/translator-group.cc
@@ -346,7 +346,7 @@ Translator_group::~Translator_group ()
 const char Translator_group::type_p_name_[] = "ly:translator-group?";
 
 int
-Translator_group::print_smob (SCM port, scm_print_state *)
+Translator_group::print_smob (SCM port, scm_print_state *) const
 {
   scm_puts ("#<Translator_group ", port);
   scm_puts (class_name (), port);

diff --git a/lily/translator.cc b/lily/translator.cc
index 54d97c3c19ecb439510cf92f920d3a3bc6624610..370f7771c0dcf2a95148ee964b97f4ccd00eb284 100644 (file)
--- a/lily/translator.cc
+++ b/lily/translator.cc
@@ -221,7 +221,7 @@ Translator::derived_mark () const
 }
 
 int
-Translator::print_smob (SCM port, scm_print_state *)
+Translator::print_smob (SCM port, scm_print_state *) const
 {
   scm_puts ("#<Translator ", port);
   scm_puts (class_name (), port);

diff --git a/lily/undead.cc b/lily/undead.cc
index db2d6f19e0b9e590f66b56769c0634e29a64117a..a328c66cafd0e6e376da5b4a7a4765752ea2a759 100644 (file)
--- a/lily/undead.cc
+++ b/lily/undead.cc
@@ -22,7 +22,7 @@
 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_[];
 private:
@@ -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);

diff --git a/lily/unpure-pure-container.cc b/lily/unpure-pure-container.cc
index d5962bd028d29f9014e0ca612fa28bb5a44f67ab..45b71881923c9ac8b3d3e75c5fe92ec748383494 100644 (file)
--- a/lily/unpure-pure-container.cc
+++ b/lily/unpure-pure-container.cc
@@ -73,7 +73,7 @@ LY_DEFINE (ly_unpure_pure_container_pure_part, "ly:unpure-pure-container-pure-pa
 }
 
 int
-Unpure_pure_container::print_smob (SCM port, scm_print_state *)
+Unpure_pure_container::print_smob (SCM port, scm_print_state *) const
 {
   scm_puts ("#<unpure-pure-container ", port);
   scm_display (unpure_part (), port);