X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fchord-name.scm;h=29ec16fc805d24ccc0cb8b57245f9d5df19eb7c5;hb=4051d4410364b9984faa181659a3bfe2763a9736;hp=52ae72b2cb6298cfc445529d7fa1770d5e95c631;hpb=d2762a4f1add2bb04d6fc34d3c7ae03eeb7d500f;p=lilypond.git

diff --git a/scm/chord-name.scm b/scm/chord-name.scm
index 52ae72b2cb..29ec16fc80 100644
--- a/scm/chord-name.scm
+++ b/scm/chord-name.scm
@@ -169,4 +169,4 @@ FOOBAR-MARKUP) if OMIT-ROOT is given and non-false.
 
   (let* ((elts (filter is-event-chord? (ly:music-property seq 'elements)))
          (alist (map chord-to-exception-entry elts)))
-    (filter (lambda (x) (cdr x)) alist)))
+    (filter cdr alist)))