]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/ottava-bracket.cc
* lily/book.cc (to_stencil): New method.
[lilypond.git] / lily / ottava-bracket.cc
index 30c122da5da44d113c18c40d8901150ff369d158..3a13fdcf0cc93826158dcbfa49016ba95a032f57 100644 (file)
@@ -88,7 +88,7 @@ Ottava_bracket::print (SCM smob)
       Interval ext;
       if (Note_column::has_interface (b))
        {
-         for (SCM s = b->get_property ("note-heads"); ly_pair_p (s); s =ly_cdr (s))
+         for (SCM s = b->get_property ("note-heads"); ly_c_pair_p (s); s =ly_cdr (s))
            ext.unite (unsmob_grob (ly_car (s))->extent (common, X_AXIS));
        }
 
@@ -156,7 +156,7 @@ Ottava_bracket::print (SCM smob)
   
   b = Stencil (Box (b.extent (X_AXIS),
                     Interval (0.1,0.1)),
-               b.get_expr ());
+               b.expr ());
   
   b.translate_axis (bracket_span_points[LEFT], X_AXIS);
   text.translate_axis (span_points[LEFT], X_AXIS);