Use for-each instead of map when result is to be ignored anyway.

diff --git a/input/regression/graphviz.ly b/input/regression/graphviz.ly
index d302a7d9910aae0eeb387ca9feed487ca0c74bd4..710752d78ddd54105735bd070fbf43c485e2890e 100644 (file)
--- a/input/regression/graphviz.ly
+++ b/input/regression/graphviz.ly
@@ -13,9 +13,9 @@
 #(whitelist-grob "Stem")
 #(whitelist-grob "Flag")
 
-#(map whitelist-symbol '(stencil style duration-log
-                        stem-attachment end-position staff-position
-                        glyph-name direction))
+#(for-each whitelist-symbol '(stencil style duration-log
+                             stem-attachment end-position staff-position
+                             glyph-name direction))
 
 
 \book { \score {

diff --git a/ly/drumpitch-init.ly b/ly/drumpitch-init.ly
index 65eec67cc1922f9e283b0a13452e916ec588eed2..87af2762261863655a2f9fc9bf2bb97ea7e6f49c 100644 (file)
--- a/ly/drumpitch-init.ly
+++ b/ly/drumpitch-init.ly
@@ -230,7 +230,7 @@ midiDrumPitches = #`(
 )
 
 
-#(map
+#(for-each
   (lambda (k-v)
     (module-define! (current-module)
                    (car k-v)