X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fdefine-music-types.scm;h=a6e1cbe178a4e2f7077bcd49f3eba5b198a52a80;hb=177f55e3f3d7c6b4613e3d54adeb48d8378b5a56;hp=a57b187e30c277d4a03b900e3b7d2d96b73ab1bb;hpb=5274f7944a00e046d6c980925c9188df6b82d865;p=lilypond.git

diff --git a/scm/define-music-types.scm b/scm/define-music-types.scm
index a57b187e30..a6e1cbe178 100644
--- a/scm/define-music-types.scm
+++ b/scm/define-music-types.scm
@@ -2,7 +2,7 @@
 ;;;;
 ;;;;  source file of the GNU LilyPond music typesetter
 ;;;;
-;;;; (c) 1998--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
+;;;; (c) 1998--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>
 ;;;;		     Jan Nieuwenhuizen <janneke@gnu.org>
 
 ;; TODO: should link back into user manual.
@@ -185,14 +185,6 @@ You can also use @code{\\<}, @code{\\!}, @code{\\cresc}, and
 	(types . (general-music fingering-event event))
 	))
 
-    (FoldedRepeatedMusic
-     . ((description . "Repeats with alternatives placed in parallel.")
-	(iterator-ctor . ,ly:folded-repeat-iterator::constructor)
-	(start-callback .  ,ly:repeated-music::minimum-start)
-	(length-callback . ,ly:repeated-music::folded-music-length)
-	(types . (general-music repeated-music folded-repeated-music))
-	))
-
     (GlissandoEvent
      . ((description . "Start a glissando on this note.")
 	(types . (general-music glissando-event event))
@@ -693,8 +685,7 @@ and values. E.g:
   (let* ((handle (assoc name '(("volta" . VoltaRepeatedMusic)
 			       ("unfold" . UnfoldedRepeatedMusic)
 			       ("percent" . PercentRepeatedMusic)
-			       ("tremolo" . TremoloRepeatedMusic)
-			       ("fold" . FoldedRepeatedMusic))))
+			       ("tremolo" . TremoloRepeatedMusic))))
 	 (music-name (if (pair? handle)
 			 (cdr handle)
 			 (begin