Fix kickoff

This commit is contained in:
Tony Garnock-Jones 2018-04-30 12:28:14 +01:00
parent 7a6b7e3a08
commit 208b20c2f7
2 changed files with 4 additions and 6 deletions

View File

@ -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))

View File

@ -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))