Issue 4134: Remove trivial print_smob member functions

Those are provided by the Smob_base class anyway.

diff --git a/lily/book.cc b/lily/book.cc
index 4c426da4fd16c63cae9d9e6880fdeafdeeee70e7..21fb405c857d711836bfc4bb4e7576b9bbe9a93d 100644 (file)
--- a/lily/book.cc
+++ b/lily/book.cc
@@ -117,13 +117,6 @@ Book::mark_smob ()
   return header_;
 }
 
-int
-Book::print_smob (SCM, SCM p, scm_print_state *)
-{
-  scm_puts ("#<Book>", p);
-  return 1;
-}
-
 void
 Book::add_score (SCM s)
 {

diff --git a/lily/context-property.cc b/lily/context-property.cc
index 369037381aba5b67ef8d5f01996c1d6e357ed9ba..7dba9d6e8506b0aa1d127136d321dbe80a0fc46b 100644 (file)
--- a/lily/context-property.cc
+++ b/lily/context-property.cc
@@ -66,7 +66,6 @@ typecheck_grob (SCM symbol, SCM value)
 class Grob_properties : public Simple_smob<Grob_properties>
 {
 public:
-  static int print_smob (SCM, SCM, scm_print_state *);
   SCM mark_smob ();
   static const char type_p_name_[];
 private:
@@ -106,14 +105,6 @@ Grob_properties::mark_smob ()
   return cooked_from_;
 }
 
-int
-Grob_properties::print_smob (SCM /*smob*/, SCM port, scm_print_state *)
-{
-  scm_puts ("#<Grob_properties>", port);
-
-  return 1;
-}
-
 LY_DEFINE (ly_make_grob_properties, "ly:make-grob-properties",
            1, 0, 0, (SCM alist),
            "This packages the given property list @var{alist} in"

diff --git a/lily/include/book.hh b/lily/include/book.hh
index 0910a9b9e7bfdc2f75a5024ff646e5559a5ea6d1..f74d1d981f76e17a54135259adbdd28e6d42b884 100644 (file)
--- a/lily/include/book.hh
+++ b/lily/include/book.hh
@@ -29,7 +29,6 @@
 class Book : public Smob<Book>
 {
 public:
-  static int print_smob (SCM, SCM, scm_print_state *);
   SCM mark_smob ();
   static const char type_p_name_[];
   virtual ~Book ();

diff --git a/lily/include/listener.hh b/lily/include/listener.hh
index 2dfdc0c9f8da4865fbb279cf554d57c838a9b089..959f7e510f1fa8b1c3a4d309b47b398756754f8e 100644 (file)
--- a/lily/include/listener.hh
+++ b/lily/include/listener.hh
@@ -74,7 +74,6 @@ class Listener : public Simple_smob<Listener>
 {
 public:
   static SCM equal_p (SCM, SCM);
-  static int print_smob (SCM, SCM, scm_print_state *);
   SCM mark_smob ();
   static const char type_p_name_[];
 private:

diff --git a/lily/include/page-marker.hh b/lily/include/page-marker.hh
index 57315f5322537417b81c512c67fac19b6864e7fd..9670b681290ff0e4da2538f08fa9bfc2c8566654 100644 (file)
--- a/lily/include/page-marker.hh
+++ b/lily/include/page-marker.hh
@@ -26,7 +26,6 @@
 class Page_marker : public Smob<Page_marker>
 {
 public:
-  static int print_smob (SCM, SCM, scm_print_state *);
   SCM mark_smob ();
   static const char type_p_name_[];
   virtual ~Page_marker ();

diff --git a/lily/include/paper-book.hh b/lily/include/paper-book.hh
index c1c8d2267bac0f62a6df45dd581d78d2126a4130..716ddd5b3da974c5659f8ed0a988acfe90f83f2b 100644 (file)
--- a/lily/include/paper-book.hh
+++ b/lily/include/paper-book.hh
@@ -30,7 +30,6 @@
 class Paper_book : public Smob<Paper_book>
 {
 public:
-  static int print_smob (SCM, SCM, scm_print_state *);
   SCM mark_smob ();
   static const char type_p_name_[];
   virtual ~Paper_book ();

diff --git a/lily/include/paper-outputter.hh b/lily/include/paper-outputter.hh
index 624ae65a3937f196eaf53806eacc4458108efd4f..e99d21e37f3f50d295b20463d7278d2fe816e709 100644 (file)
--- a/lily/include/paper-outputter.hh
+++ b/lily/include/paper-outputter.hh
@@ -33,7 +33,6 @@
 class Paper_outputter : public Smob<Paper_outputter>
 {
 public:
-  static int print_smob (SCM, SCM, scm_print_state *);
   SCM mark_smob ();
   virtual ~Paper_outputter ();
 private:

diff --git a/lily/include/score.hh b/lily/include/score.hh
index f66a81ba62adacb8518709f030ab658b942870f6..e282a5e81be311a8b0edf0409ba943c1fdb0ff1f 100644 (file)
--- a/lily/include/score.hh
+++ b/lily/include/score.hh
@@ -30,7 +30,6 @@
 class Score : public Smob<Score>
 {
 public:
-  static int print_smob (SCM, SCM, scm_print_state *);
   SCM mark_smob ();
   static const char type_p_name_[];
   virtual ~Score ();

diff --git a/lily/include/skyline.hh b/lily/include/skyline.hh
index dd65bec147f3e0408e13a792b6a40483056bc241..31f6969d5bacd50918e5a92dd9f15dd0f0815de4 100644 (file)
--- a/lily/include/skyline.hh
+++ b/lily/include/skyline.hh
@@ -52,7 +52,6 @@ struct Building
 class Skyline : public Simple_smob<Skyline>
 {
 public:
-  static int print_smob (SCM, SCM, scm_print_state *);
   static const char type_p_name_[];
 private:
   list<Building> buildings_;

diff --git a/lily/listener.cc b/lily/listener.cc
index a6dcbd10205037066e0160764ff4e985318c8640..50f1969ecb418c4735715fc8c77bf9f08963b080 100644 (file)
--- a/lily/listener.cc
+++ b/lily/listener.cc
@@ -51,13 +51,6 @@ Listener::mark_smob ()
   return SCM_EOL;
 }
 
-int
-Listener::print_smob (SCM, SCM p, scm_print_state *)
-{
-  scm_puts ("#<Listener>", p);
-  return 1;
-}
-
 SCM
 Listener::equal_p (SCM a, SCM b)
 {

diff --git a/lily/page-marker.cc b/lily/page-marker.cc
index f2940d2b76c2ee2ab9e41c5c67470249e38787e1..78b1b2cefe59cd0113398367213458b866d126e3 100644 (file)
--- a/lily/page-marker.cc
+++ b/lily/page-marker.cc
@@ -50,15 +50,6 @@ Page_marker::mark_smob ()
   return SCM_EOL;
 }
 
-int
-Page_marker::print_smob (SCM smob, SCM port, scm_print_state *)
-{
-  Page_marker *pm = (Page_marker *) SCM_CELL_WORD_1 (smob);
-  (void) pm;
-  scm_puts ("#<Page_marker>", port);
-  return 1;
-}
-
 SCM
 Page_marker::permission_symbol ()
 {

diff --git a/lily/paper-book.cc b/lily/paper-book.cc
index cfc1caf2afa06d47e7c9b92e01dbcf92104423ef..f1423ef3b6ee333a2059df02664052c724870749 100644 (file)
--- a/lily/paper-book.cc
+++ b/lily/paper-book.cc
@@ -69,15 +69,6 @@ Paper_book::mark_smob ()
   return systems_;
 }
 
-int
-Paper_book::print_smob (SCM smob, SCM port, scm_print_state *)
-{
-  Paper_book *b = (Paper_book *) SCM_CELL_WORD_1 (smob);
-  (void)b;
-  scm_puts ("#<Paper_book>", port);
-  return 1;
-}
-
 Output_def *
 Paper_book::top_paper ()
 {

diff --git a/lily/paper-outputter.cc b/lily/paper-outputter.cc
index 91bffa2242a946c4e1917ef6b67a8a57ee59efe5..3600d1dbfb1907e6c3e704aaf868481b7cd4c42c 100644 (file)
--- a/lily/paper-outputter.cc
+++ b/lily/paper-outputter.cc
@@ -68,15 +68,6 @@ Paper_outputter::mark_smob ()
   return file_;
 }
 
-int
-Paper_outputter::print_smob (SCM /* x */,
-                             SCM p,
-                             scm_print_state *)
-{
-  scm_puts ("#<Paper_outputter>", p);
-  return 1;
-}
-
 SCM
 Paper_outputter::file () const
 {

diff --git a/lily/score.cc b/lily/score.cc
index b1659e2fbb19e3bc5ebbec68cb1f368f89947dbe..88d87e9aebe539da46ed3206f6acfaa978493f25 100644 (file)
--- a/lily/score.cc
+++ b/lily/score.cc
@@ -72,14 +72,6 @@ Score::mark_smob ()
   return music_;
 }
 
-int
-Score::print_smob (SCM, SCM p, scm_print_state *)
-{
-  scm_puts ("#<Score>", p);
-
-  return 1;
-}
-
 Score::Score (Score const &s)
 {
   header_ = SCM_EOL;

diff --git a/lily/skyline.cc b/lily/skyline.cc
index 40e43ab9ef908ae1002b603d7fb9018ad18139ca..36cceceb8e222340b0e659a90c8f92d68d4c74f3 100644 (file)
--- a/lily/skyline.cc
+++ b/lily/skyline.cc
@@ -863,17 +863,6 @@ Skyline::clear ()
 
 const char Skyline::type_p_name_[] = "ly:skyline?";
 
-int
-Skyline::print_smob (SCM s, SCM port, scm_print_state *)
-{
-  Skyline *r = (Skyline *) SCM_CELL_WORD_1 (s);
-  (void) r;
-
-  scm_puts ("#<Skyline>", port);
-
-  return 1;
-}
-
 MAKE_SCHEME_CALLBACK_WITH_OPTARGS (Skyline, get_touching_point, 3, 1, "")
 SCM
 Skyline::get_touching_point (SCM skyline_scm, SCM other_skyline_scm, SCM horizon_padding_scm)