X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fmodal-transforms.scm;h=70c813e8e68d6721d53eb2ab7f125f9a22405c86;hb=HEAD;hp=f9e26ed360235d316a5a467fab1c9d19483d3f3f;hpb=7738c6fa2759373c05e34b003a7ed521e9382f37;p=lilypond.git

diff --git a/scm/modal-transforms.scm b/scm/modal-transforms.scm
index f9e26ed360..70c813e8e6 100644
--- a/scm/modal-transforms.scm
+++ b/scm/modal-transforms.scm
@@ -142,9 +142,7 @@ Typically used to construct a scale for input to
       (list pitch))
 
      ((pair? elements)
-      (append-map
-       (lambda (x) (make-scale x))
-       elements))
+      (append-map make-scale elements))
 
      ((ly:music? element)
       (make-scale element)))))