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

Print instead of log

This commit is contained in:
Tony Garnock-Jones 2014-05-05 13:18:49 -04:00
parent 13756a448f
commit 79c218406e
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

@ -145,11 +145,11 @@
[(cons next-waypoint rest)
(when (<= next-waypoint max-waypoint)
(grow-to-waypoint next-waypoint)
(log-info "At waypoint ~a" next-waypoint)
(when (equal? remaining-waypoints waypoints) ;; First ever waypoint. Do some warmup.
(log-info "Warming up.")
(printf "Warming up.\n")
(ping-randomly #f)
(log-info "Warmup complete. Proceeding with real measurements."))
(printf "Warmup complete. Proceeding with real measurements.\n"))
(printf "At waypoint ~a\n" next-waypoint)
(ping-randomly)
(loop rest))]))