(unfold-repeats): bugfix

diff --git a/ChangeLog b/ChangeLog
index bae70b349afba301da3f96c2d1cb21a51383e9ba..8774750a65b776db20a9977501a2e0693afbde94 100644 (file)
--- 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 (file)
index 0000000..1aa9615
--- /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 d4534a7b413205ae3af7d2ca9a897d5f36b63e82..59a78254ee2ec994003dd6ff16bc3557aac5025b 100644 (file)
--- 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!