Avoid spurious division-by-zero

2015-03-18 21:28:17 -04:00 · 2015-03-18 21:28:17 -04:00 · efa64eec14
parent c71ea5aaed
commit efa64eec14
1 changed files with 3 additions and 1 deletions
--- a/echo-client.rkt
+++ b/echo-client.rkt
@ -113,7 +113,9 @@
 	(loop (+ count 1))
        (when record-results?
          (let* ((elapsed-sec (/ (- now start-time) 1000.0))
-                 (roundtrip-latency (/ elapsed-sec count)))
+                 (roundtrip-latency (if (zero? count)
+                                        elapsed-sec
+                                        (/ elapsed-sec count))))
 	    (write-logbook-datum! Tping (list (connection-count)
 					      roundtrip-latency
 					      (/ 1.0 roundtrip-latency)