Doc:Usage - Additional info to General Suggestions

[lilypond.git] / scm / accreg.scm

diff --git a/scm/accreg.scm b/scm/accreg.scm
index eba1bb473355479a36a50e0727cfa52dbef9b04f..a777870f1ada99bf028072155f035844741f22af 100644 (file)
--- a/scm/accreg.scm
+++ b/scm/accreg.scm
@@ -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