From b81e76bd74a3162e7f7ca60b56d1f6ca578968b2 Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Thu, 1 May 2014 15:54:12 -0400
Subject: [PATCH] Warmup to avoid outliers

---
 minimart/examples/benchmark/internal-latency.rkt | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/minimart/examples/benchmark/internal-latency.rkt b/minimart/examples/benchmark/internal-latency.rkt
index ce7a902..c974074 100644
--- a/minimart/examples/benchmark/internal-latency.rkt
+++ b/minimart/examples/benchmark/internal-latency.rkt
@@ -66,6 +66,13 @@
 (module+ main
   (define t 5000)
   (printf "Num echoers,Run duration (ms),Boot delay (ms),Num roundtrips,Msgs/sec,Sec/msg\n")
+  (flush-output)
+  ;; Warmup
+  (let ()
+    (run #:echoer-count 1 #:run-time 1000)
+    (run #:echoer-count 10 #:run-time 1000)
+    (void))
+  ;; Real run
   (for ((n
 	 (list 1 10 20 30 40 50 60 70 80 90 100 120
 	       150 200 210 220 230 240 250 260 270 280 290 300 400