From: David Kastrup <dak@gnu.org>
Date: Sun, 31 May 2015 18:37:14 +0000 (+0200)
Subject: Issue 4422/6: Fix (define-music-function (parser ... uses in scm/
X-Git-Tag: release/2.19.22-1~68^2~6
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=ade3215602fec71d7a700f5093e1e4e75371c7f2;p=lilypond.git

Issue 4422/6: Fix (define-music-function (parser ... uses in scm/
---

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