+
+untied =
+#(define-music-function (parser location note) (ly:music?)
+ "Specify that @var{note} should not have ties. "
+ (set! (ly:music-property note 'untied) #t)
+ note)
+
+withMusicProperty =
+#(define-music-function (parser location sym val music) (symbol? scheme? ly:music?)
+ "Set @var{sym} to @var{val} in @var{music}."
+
+ (set! (ly:music-property music sym) val)
+ music)
+