From: hanwen <hanwen>
Date: Wed, 31 Jul 2002 15:28:29 +0000 (+0000)
Subject: (unfold-repeats): bugfix
X-Git-Tag: release/1.5.71~22
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=aeefc9a7ab4e9e2d3688b3fa5ce722c688bbd3de;p=lilypond.git

(unfold-repeats): bugfix
---

diff --git a/ChangeLog b/ChangeLog
index bae70b349a..8774750a65 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2002-07-31  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
+
+	* scm/music-functions.scm (unfold-repeats): bugfix
+
 2002-07-31  Rune Zedeler <rune@zedeler.dk>
 
 	* ly/engraver-init.ly: remove alias "Current" from all contexts.
diff --git a/input/regression/repeat-unfold-all.ly b/input/regression/repeat-unfold-all.ly
new file mode 100644
index 0000000000..1aa96159ed
--- /dev/null
+++ b/input/regression/repeat-unfold-all.ly
@@ -0,0 +1,13 @@
+
+\header {
+    texidoc = "Repeats may be unfolded through the Scheme function @code{unfold-repeats}."
+}
+
+nots = \notes\relative c'   {c4 \repeat volta 2 c4 \alternative { d e  }}
+
+\score { \notes {
+\nots
+\apply #unfold-repeats \nots
+}
+\paper {linewidth=-1.} 
+     }
diff --git a/scm/music-functions.scm b/scm/music-functions.scm
index d4534a7b41..59a78254ee 100644
--- a/scm/music-functions.scm
+++ b/scm/music-functions.scm
@@ -56,7 +56,9 @@ written by Rune Zedeler. "
 
     (if (equal? n "Repeated_music")
         (begin
-	  (if (equal? (ly-get-mus-property 'type music) 'tremolo)
+	  (if (equal?
+	       (ly-get-mus-property music 'iterator-ctor)
+	       Chord_tremolo_iterator::constructor)
 	      (shift-duration-log music (- (intlog2 (ly-get-mus-property 'repeat-count music))))
 	      )
           (ly-set-mus-property!