More logical result-computation-order.
This commit is contained in:
parent
c90c16ab4b
commit
eb0df94b1d
|
@ -111,9 +111,9 @@
|
|||
(define now (current-inexact-milliseconds))
|
||||
(if (< now (+ start-time ping-time))
|
||||
(loop (+ count 1))
|
||||
(let* ((elapsed-sec (/ (- now start-time) 1000.0))
|
||||
(roundtrip-latency (/ elapsed-sec count)))
|
||||
(when record-results?
|
||||
(when record-results?
|
||||
(let* ((elapsed-sec (/ (- now start-time) 1000.0))
|
||||
(roundtrip-latency (/ elapsed-sec count)))
|
||||
(write-logbook-datum! Tping (list (connection-count)
|
||||
roundtrip-latency
|
||||
(/ 1.0 roundtrip-latency)
|
||||
|
|
Loading…
Reference in New Issue