From eb0df94b1df963a2a0394c10fa4a7492181aae76 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Wed, 18 Mar 2015 19:05:16 -0400 Subject: [PATCH] More logical result-computation-order. --- echo-client.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/echo-client.rkt b/echo-client.rkt index a283327..797444b 100644 --- a/echo-client.rkt +++ b/echo-client.rkt @@ -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)