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