From 394d478785693479c90a25b8d27399ee128e574b Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Tue, 13 Sep 2011 16:41:45 +0200 Subject: [PATCH] music-functions.scm: allow dotted argument lists for music functions --- scm/music-functions.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/scm/music-functions.scm b/scm/music-functions.scm index 1d88c4f0db..4f79a2bae3 100644 --- a/scm/music-functions.scm +++ b/scm/music-functions.scm @@ -770,11 +770,11 @@ Syntax: (let ((docstring (cadar body)) (body (cdr body))) `(ly:make-music-function (list ,type ,@signature) - (lambda (,@args) + (lambda ,args ,docstring ,@body))) `(ly:make-music-function (list ,type ,@signature) - (lambda (,@args) + (lambda ,args ,@body)))) (defmacro-public define-music-function rest -- 2.39.5