X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ly%2Fmusic-functions-init.ly;h=d96e655370612f6e107ac3259df3a4c066071fd1;hb=7fe3cccd7cfcc4d0df003bc887694779354febfa;hp=76c2ec64b882f079ec9fbf441076cfc30a305631;hpb=63a0195213dbc749dc5766035b71280893af2b9a;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)