syndicate-lang
/
minimart-benchmark-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

More logical result-computation-order.

This commit is contained in:
Tony Garnock-Jones 2015-03-18 19:05:16 -04:00
parent c90c16ab4b
commit eb0df94b1d
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
echo-client.rkt
View File

@ -111,9 +111,9 @@
(define now (current-inexact-milliseconds)) (define now (current-inexact-milliseconds))
(if (< now (+ start-time ping-time)) (if (< now (+ start-time ping-time))
(loop (+ count 1)) (loop (+ count 1))
(let* ((elapsed-sec (/ (- now start-time) 1000.0)) (when record-results?
(roundtrip-latency (/ elapsed-sec count))) (let* ((elapsed-sec (/ (- now start-time) 1000.0))
(when record-results? (roundtrip-latency (/ elapsed-sec count)))
(write-logbook-datum! Tping (list (connection-count) (write-logbook-datum! Tping (list (connection-count)
roundtrip-latency roundtrip-latency
(/ 1.0 roundtrip-latency) (/ 1.0 roundtrip-latency)