X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Faccreg.scm;h=6aea74c6613f1b55134d5d09dbc8006960d5e369;hb=90e4d7057f3857da049dfda3d130017d4719bd6b;hp=eba1bb473355479a36a50e0727cfa52dbef9b04f;hpb=32689b75bec62313992c1b452f624d65f45e8789;p=lilypond.git

diff --git a/scm/accreg.scm b/scm/accreg.scm
index eba1bb4733..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)
@@ -66,7 +66,7 @@ for examples."
             'direction
             1
             'text
-            (markup ,(symbol->keyword set-symbol) register))))))))
+            (,(string->symbol (format #f "make-~a-markup" set-symbol)) register))))))))
 
 
 (define-register-set discant