(define -clock:metro-from-host- (lambda () (let ((mark (*metro* 'get-mark))) (list (*metro* 'get-tempo) (car mark) (samples->clock (cdr mark))))))