From: David Kastrup <dak@gnu.org>
Date: Fri, 16 Sep 2011 09:01:17 +0000 (+0200)
Subject: music-functions-init.ly: Use foreach instead of map when return value is discarded.
X-Git-Tag: release/2.15.12-1~39
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=f04a4994acefdc2dc6420f4e98decde1a0d1fad3;p=lilypond.git

music-functions-init.ly: Use foreach instead of map when return value is discarded.
---

diff --git a/ly/music-functions-init.ly b/ly/music-functions-init.ly
index ba8aa76164..a4e3f343ea 100644
--- a/ly/music-functions-init.ly
+++ b/ly/music-functions-init.ly
@@ -706,7 +706,7 @@ Example:
 			 (and (not (null? origins)) (car origins)))))))
      ;;
      ;; first, split the music and fill in voices
-     (map-in-order (lambda (m)
+     (for-each (lambda (m)
 		     (push-music m)
 		     (if (bar-check? m) (change-voice)))
 		   (ly:music-property music 'elements))
@@ -736,14 +736,12 @@ Example:
 	    voices)
      ;;
      ;; bind voice identifiers to the voices
-     (map (lambda (voice-id voice)
+     (for-each (lambda (voice-id voice)
 	    (ly:parser-define! parser voice-id
 			       (make-music 'SequentialMusic
 					   'origin location
 					   'elements voice)))
-	  voice-ids voices))
-   ;; Return an empty sequence.  This function is actually a "void" function.
-   (make-music 'SequentialMusic 'void #t))
+	  voice-ids voices)))
 
 parenthesize =
 #(define-music-function (parser loc arg) (ly:music?)
@@ -752,7 +750,7 @@ parenthesize =
    (if (memq 'event-chord (ly:music-property arg 'types))
        ;; arg is an EventChord -> set the parenthesize property
        ;; on all child notes and rests
-       (map
+       (for-each
 	(lambda (ev)
 	  (if (or (memq 'note-event (ly:music-property ev 'types))
 		  (memq 'rest-event (ly:music-property ev 'types)))