X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fstencil.cc;h=7be0b5f8af63b1562984da11a5fea9602552aa6c;hb=3fd5eabae695f90c0cea826bcea33d54a242b01b;hp=51f051d597f3588e954db618928d7f734173e77e;hpb=058370efc7e9710f149d0f444328bb1fcd7bdec1;p=lilypond.git

diff --git a/lily/stencil.cc b/lily/stencil.cc
index 51f051d597..7be0b5f8af 100644
--- a/lily/stencil.cc
+++ b/lily/stencil.cc
@@ -25,7 +25,6 @@
 #include "string-convert.hh"
 #include "warn.hh"
 
-#include "ly-smobs.icc"
 
 Stencil::Stencil ()
 {
@@ -39,24 +38,13 @@ Stencil::Stencil (Box b, SCM func)
   dim_ = b;
 }
 
-int
-Stencil::print_smob (SCM, SCM port, scm_print_state *)
-{
-  scm_puts ("#<Stencil ", port);
-  scm_puts (" >", port);
-  return 1;
-}
-
 SCM
-Stencil::mark_smob (SCM smob)
+Stencil::mark_smob ()
 {
-  Stencil *s = (Stencil *) SCM_CELL_WORD_1 (smob);
-  return s->expr_;
+  return expr_;
 }
 
-IMPLEMENT_SIMPLE_SMOBS (Stencil);
-IMPLEMENT_TYPE_P (Stencil, "ly:stencil?");
-IMPLEMENT_DEFAULT_EQUAL_P (Stencil);
+const char Stencil::type_p_name_[] = "ly:stencil?";
 
 Interval
 Stencil::extent (Axis a) const
@@ -182,8 +170,7 @@ Stencil::translate (Offset o)
     expr_ = scm_list_n (ly_symbol2scm ("translate-stencil"),
                         ly_offset2scm (o),
                         expr_, SCM_UNDEFINED);
-  if (!is_empty ())
-    dim_.translate (o);
+  dim_.translate (o);
 }
 
 void