From ade3215602fec71d7a700f5093e1e4e75371c7f2 Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Sun, 31 May 2015 20:37:14 +0200 Subject: [PATCH] Issue 4422/6: Fix (define-music-function (parser ... uses in scm/ --- scm/accreg.scm | 2 +- scm/music-functions.scm | 3 +-- 2 files changed, 2 insertions(+), 3 deletions(-) diff --git a/scm/accreg.scm b/scm/accreg.scm index a777870f1a..6aea74c661 100644 --- a/scm/accreg.scm +++ b/scm/accreg.scm @@ -55,7 +55,7 @@ for examples." (ly:assoc-get 'reedbanks register)))))))) (define-public ,set-symbol - (define-music-function (parser position register) + (define-music-function (register) (string?) ,(format #f "Equivalent to @code{<>^\\markup \\~a@var{REGISTER}}." set-symbol) diff --git a/scm/music-functions.scm b/scm/music-functions.scm index d7f8ded534..2c44e33cb2 100644 --- a/scm/music-functions.scm +++ b/scm/music-functions.scm @@ -1040,10 +1040,9 @@ actually fully cloned." (defmacro-public def-grace-function (start stop . docstring) "Helper macro for defining grace music" - `(define-music-function (parser location music) (ly:music?) + `(define-music-function (music) (ly:music?) ,@docstring (make-music 'GraceMusic - 'origin location 'element (make-music 'SequentialMusic 'elements (list (ly:music-deep-copy ,start) music -- 2.39.2