helper:print-tempo   scheme

;
; helper:print-tempo
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; pretty print the current tempo
(define helper:print-tempo
    (lambda (val status)
        (if (equal? status 'changed)
            (print-with-colors 'cyan 'default #f 
                (println 'TEMPO '=> val))
            ;; else: monitor value only
            (println 'TEMPO '== val)
        )
    ))