(define clock:update-metro
(lambda (server-process local-process)
(let ((res (ipc:call server-process local-process '-clock:metro-from-host-)))
(set! *metro* (make-metro (car res)
(cons (cadr res)
(clock->samples (caddr res))))))))