]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/stencil.cc
multi-measure-rest: space according to the full duration
[lilypond.git] / lily / stencil.cc
index 331dde28310c9f16e8fa977160e7fe448d48a1d0..7be0b5f8af63b1562984da11a5fea9602552aa6c 100644 (file)
@@ -38,19 +38,10 @@ 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_;
 }
 
 const char Stencil::type_p_name_[] = "ly:stencil?";