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