- ((end * * 12 8) . ,(make-moment 3 8))
- ((end 1 16 12 8) . ,(make-moment 3 8))
- ((end 1 32 12 8) . ,(make-moment 1 8))
+(define (override-property-setting context context-prop setting value)
+ "Like the C++ code that executes \\override, but without type
+checking. "
+
+ (ly:context-set-property! context context-prop
+ (cons (cons setting value)
+ (ly:context-property context context-prop)
+ )
+ )
+ )
+
+(define (revert-property-setting context setting)
+ "Like the C++ code that executes \revert, but without type
+checking. "
+
+ (define (revert-assoc alist key)
+ "Return ALIST, with KEY removed. ALIST is not modified, instead
+a fresh copy of the list-head is made."
+ (cond
+ ((null? alist) '())
+ ((equal? (caar alist) key) (cdr alist))
+ (else (cons (car alist) (revert-assoc alist key)))