From: David Kastrup <dak@gnu.org>
Date: Sun, 7 Aug 2011 15:46:25 +0000 (+0200)
Subject: simple-spacer.cc: we were missing an implementation of Simple_spacer
X-Git-Tag: release/2.15.9-1~37
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=0172c2032c0aa0e01490345640bdbdba84f257d4;p=lilypond.git

simple-spacer.cc: we were missing an implementation of Simple_spacer
---

diff --git a/lily/simple-spacer.cc b/lily/simple-spacer.cc
index 10d49b83d9..4644ad7c4b 100644
--- a/lily/simple-spacer.cc
+++ b/lily/simple-spacer.cc
@@ -523,3 +523,22 @@ get_line_configuration (vector<Grob *> const &columns,
   return ret;
 }
 
+
+#include "ly-smobs.icc"
+
+IMPLEMENT_SIMPLE_SMOBS (Simple_spacer);
+IMPLEMENT_DEFAULT_EQUAL_P (Simple_spacer);
+
+SCM
+Simple_spacer::mark_smob (SCM /* x */)
+{
+  return SCM_EOL;
+}
+
+int
+Simple_spacer::print_smob (SCM /* x */, SCM p, scm_print_state *)
+{
+  scm_puts ("#<Simple spacer>", p);
+  return 1;
+}
+