Merge branch 'master' of carldsorensen@git.sv.gnu.org:/srv/git/lilypond

[lilypond.git] / lily / pitched-trill-engraver.cc

diff --git a/lily/pitched-trill-engraver.cc b/lily/pitched-trill-engraver.cc
index 39cb899acc6b3b0e257082fe9c253d99fb9f6eef..3555a99d45bd872e413a337f7856428691dbee85 100644 (file)
--- a/lily/pitched-trill-engraver.cc
+++ b/lily/pitched-trill-engraver.cc
@@ -85,7 +85,7 @@ Pitched_trill_engraver::make_trill (Stream_event *ev)
   SCM handle = scm_assoc (key, keysig);
   if (handle != SCM_BOOL_F)
     {
-      bool same_bar = (bn == robust_scm2int (scm_cddr (handle), 0));
+      bool same_bar = (bn == robust_scm2int (scm_caddr (handle), 0));
       bool same_alt
        = (p->get_alteration () == robust_scm2rational (scm_cadr (handle), 0));