X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fstencil.cc;h=3da186954132a5cfc3940471e116671bac07faf0;hb=be64cb6036b9695beb07c67664cbeb26d14fe3db;hp=980618ceaa5d965fdb8900372d77d60ff0350747;hpb=658c44d32fe6406c472152875346d63211c7bae2;p=lilypond.git

diff --git a/lily/stencil.cc b/lily/stencil.cc
index 980618ceaa..3da1869541 100644
--- a/lily/stencil.cc
+++ b/lily/stencil.cc
@@ -39,7 +39,7 @@ Stencil::Stencil (Box b, SCM func)
 }
 
 SCM
-Stencil::mark_smob ()
+Stencil::mark_smob () const
 {
   return expr_;
 }
@@ -104,10 +104,10 @@ Stencil::rotate_degrees_absolute (Real a, Offset absolute_off)
    *         *this = rotated()
    */
 
-  expr_ = scm_list_n (ly_symbol2scm ("rotate-stencil"),
+  expr_ = scm_list_3 (ly_symbol2scm ("rotate-stencil"),
                       scm_list_2 (scm_from_double (a),
                                   scm_cons (scm_from_double (x), scm_from_double (y))),
-                      expr_, SCM_UNDEFINED);
+                      expr_);
 
   /*
    * Calculate the new bounding box
@@ -167,9 +167,9 @@ Stencil::translate (Offset o)
     }
 
   if (!scm_is_null (expr_))
-    expr_ = scm_list_n (ly_symbol2scm ("translate-stencil"),
+    expr_ = scm_list_3 (ly_symbol2scm ("translate-stencil"),
                         ly_offset2scm (o),
-                        expr_, SCM_UNDEFINED);
+                        expr_);
   dim_.translate (o);
 }