From 0172c2032c0aa0e01490345640bdbdba84f257d4 Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Sun, 7 Aug 2011 17:46:25 +0200 Subject: [PATCH] simple-spacer.cc: we were missing an implementation of Simple_spacer --- lily/simple-spacer.cc | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) 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 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 ("#", p); + return 1; +} + -- 2.39.5