X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ly%2Fmusic-functions-init.ly;h=d96e655370612f6e107ac3259df3a4c066071fd1;hb=1b29d0ce3e3143bdc26504917578dc3f8b07e861;hp=76c2ec64b882f079ec9fbf441076cfc30a305631;hpb=fc40563cfed21eb5508b60b3892c57f9d2560a63;p=lilypond.git

diff --git a/ly/music-functions-init.ly b/ly/music-functions-init.ly
index 76c2ec64b8..d96e655370 100644
--- a/ly/music-functions-init.ly
+++ b/ly/music-functions-init.ly
@@ -1651,9 +1651,7 @@ appropriate tweak applied.")
        (define (offset-control-points offsets)
          (if (null? offsets)
              coords
-             (map
-               (lambda (x y) (coord-translate x y))
-               coords offsets)))
+             (map coord-translate coords offsets)))
 
        (define (helper sibs offs)
          (if (pair? offs)