diff --git a/echo-client.rkt b/echo-client.rkt index daa05dd..2246059 100644 --- a/echo-client.rkt +++ b/echo-client.rkt @@ -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))]))