"Like the C++ code that executes \override, but without type
checking. "
- (ly:set-context-property context context-prop
+ (ly:set-context-property! context context-prop
(cons (cons setting value)
(ly:get-context-property context context-prop)
)
- (ly:set-context-property
+ (ly:set-context-property!
context context-prop
(revert-assoc (ly:get-context-property context context-prop)
setting))
((where (ly:context-property-where-defined context 'centralCPosition))
(oc0 (ly:get-context-property context 'originalCentralCPosition)))
- (ly:set-context-property context 'centralCPosition oc0)
+ (ly:set-context-property! context 'centralCPosition oc0)
(ly:unset-context-property where 'originalCentralCPosition)
(ly:unset-context-property where 'ottavation))
(-1 . "8va bassa")
(-2 . "15ma bassa"))))))
- (ly:set-context-property context 'centralCPosition new-c0)
- (ly:set-context-property context 'originalCentralCPosition c0)
- (ly:set-context-property context 'ottavation string)
+ (ly:set-context-property! context 'centralCPosition new-c0)
+ (ly:set-context-property! context 'originalCentralCPosition c0)
+ (ly:set-context-property! context 'ottavation string)
))))
(define-public ((set-bar-number-visibility n) tr)
(let* ((bn (ly:get-context-property tr 'currentBarNumber)))
- (ly:set-context-property tr 'barNumberVisibility (modulo-bar-number-visible n (modulo bn n))))
-)
+ (ly:set-context-property! tr 'barNumberVisibility (modulo-bar-number-visible n (modulo bn n)))))
(define-public (default-bar-number-visibility barnum) (> barnum 1))