(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)
'direction
1
'text
- (markup ,(symbol->keyword set-symbol) register))))))))
+ (,(string->symbol (format #f "make-~a-markup" set-symbol)) register))))))))
(define-register-set discant