From 8ddd20baf6dd3b1e12364f46722740aa71147a8b Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Tue, 18 Oct 2011 18:19:32 +0200 Subject: [PATCH] Use for-each instead of map when result is to be ignored anyway. --- input/regression/graphviz.ly | 6 +++--- ly/drumpitch-init.ly | 2 +- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/input/regression/graphviz.ly b/input/regression/graphviz.ly index d302a7d991..710752d78d 100644 --- 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 65eec67cc1..87af276226 100644 --- 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) -- 2.39.5