Re: Set a temporary tempo change

[Aaron Hill]

On 2019-11-18 4:18 pm, Aaron Hill wrote:
%%%%
registerContextProperty = #(define-void-function
  (symbol type? description)
  (symbol? procedure? string?)
  (if (not (equal? #f (object-property symbol 'translation-doc)))
    (ly:error (_ "symbol ~S redefined") symbol))
  (set-object-property! symbol 'translation-type? type?)
  (set-object-property! symbol 'translation-doc description)
  (set! all-translation-properties (cons symbol 
all-translation-properties))
  symbol)
%%%%

And the useless return value should be omitted.

%%%%
registerContextProperty = #(define-void-function
  (symbol type? description)
  (symbol? procedure? string?)
  (if (not (equal? #f (object-property symbol 'translation-doc)))
    (ly:error (_ "symbol ~S redefined") symbol))
  (set-object-property! symbol 'translation-type? type?)
  (set-object-property! symbol 'translation-doc description)
  (set! all-translation-properties (cons symbol 
all-translation-properties)))
%%%%

-- Aaron Hill