Fix kickoff
This commit is contained in:
parent
7a6b7e3a08
commit
208b20c2f7
|
@ -31,12 +31,9 @@
|
|||
|
||||
(let ((src echoer-count)
|
||||
(dst 0))
|
||||
(spawn (on-start
|
||||
(send! 'kickoff))
|
||||
|
||||
(on (message 'kickoff)
|
||||
(set! run-start-time (current-inexact-milliseconds))
|
||||
(send-ping! src dst))
|
||||
(spawn (on-start (flush!)
|
||||
(set! run-start-time (current-inexact-milliseconds))
|
||||
(send-ping! src dst))
|
||||
|
||||
(on (message (pong $start-time))
|
||||
(define stop-time (current-inexact-milliseconds))
|
||||
|
|
|
@ -28,6 +28,7 @@
|
|||
(let ((src echoer-count)
|
||||
(dst 0))
|
||||
(spawn (on-start
|
||||
(flush!)
|
||||
(set! run-start-time (current-inexact-milliseconds))
|
||||
(send-ping! src dst))
|
||||
|
||||
|
|
Loading…
Reference in New Issue