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

diff --git a/scm/accreg.scm b/scm/accreg.scm
index a777870f1ada99bf028072155f035844741f22af..6aea74c6613f1b55134d5d09dbc8006960d5e369 100644 (file)
--- 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 d7f8ded534d85d2b825b2ac722e307f9a33b007d..2c44e33cb249c7e6752a31928471a7ca3a7fbbfd 100644 (file)
--- 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