From 855bbf77b88ba74b4d767a7f8d56cc1f24f8ebc9 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Wed, 18 Mar 2015 23:19:31 -0400 Subject: [PATCH] Avoid spurious division by zero when fast servers (e.g. uv) are fast --- echo-client.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/echo-client.rkt b/echo-client.rkt index 689cffc..73a4eae 100644 --- a/echo-client.rkt +++ b/echo-client.rkt @@ -118,7 +118,7 @@ (/ elapsed-sec count)))) (write-logbook-datum! Tping (list (connection-count) roundtrip-latency - (/ 1.0 roundtrip-latency) + (if (zero? roundtrip-latency) 0 (/ 1.0 roundtrip-latency)) count elapsed-sec))))))) @@ -142,7 +142,7 @@ (define gc-sec (/ gc-time 1000.0)) (write-logbook-datum! Tgrowth (list old-count (/ wallclock-sec (- waypoint old-count)) - (/ (- waypoint old-count) wallclock-sec) + (if (zero? wallclock-sec) 0 (/ (- waypoint old-count) wallclock-sec)) cpu+gc-sec wallclock-sec gc-sec