X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fmusic-functions.scm;h=42a08cc344c0ec8731d3c1f428f0d7a06a6a5c4b;hb=cfbc499b05b4d656241759f46f21cc25d85d9d55;hp=d6de35852d42dea1f68c55f44f319f5b1c491110;hpb=1d57d1c5b1605638097e08ef585813581aa71436;p=lilypond.git

diff --git a/scm/music-functions.scm b/scm/music-functions.scm
index d6de35852d..42a08cc344 100644
--- a/scm/music-functions.scm
+++ b/scm/music-functions.scm
@@ -737,7 +737,7 @@ Syntax:
   (define-music-function (parser location arg1 arg2 ...) (arg1-type? arg2-type? ...)
     ...function body...)
 "
-  (if (and (pair? body) (pair? (car body)) (eqv? '_i (caar body)))
+(if (and (pair? body) (pair? (car body)) (eqv? '_i (caar body)))
       ;; When the music function definition contains a i10n doc string,
       ;; (_i "doc string"), keep the literal string only
       (let ((docstring (cadar body))