-
-%{
-tweak = #(define-music-function (parser location sym val arg)
- (symbol? scheme? ly:music?)
-
- "Add @code{sym . val} to the @code{tweaks} property of @var{arg}."
-
- (set!
- (ly:music-property arg 'tweaks)
- (acons sym val
- (ly:music-property arg 'tweaks)))
- arg)
-%}
-