Issue 3182: Defuse the obfuscated Scheme programming contest

[lilypond.git] / scm / music-functions.scm

diff --git a/scm/music-functions.scm b/scm/music-functions.scm
index 8866c0e8877d75c374f42ee56cd85c8114a7c361..bb5bb9ab88e5aa8b27f5486acd34407711b5211a 100644 (file)
--- a/scm/music-functions.scm
+++ b/scm/music-functions.scm
@@ -806,7 +806,7 @@ NUMBER is 0-base, i.e., Voice=1 (upstems) has number 0.
     (if (ly:music? e)
        (set! (ly:music-property m 'element)  (voicify-music e)))
     (if (and (equal? (ly:music-property m 'name) 'SimultaneousMusic)
-            (reduce (lambda (x y ) (or x y)) #f (map music-separator? es)))
+            (any music-separator? es))
        (set! m (context-spec-music (voicify-chord m) 'Staff)))
     m))