Print instead of log
This commit is contained in:
parent
13756a448f
commit
79c218406e
|
@ -145,11 +145,11 @@
|
||||||
[(cons next-waypoint rest)
|
[(cons next-waypoint rest)
|
||||||
(when (<= next-waypoint max-waypoint)
|
(when (<= next-waypoint max-waypoint)
|
||||||
(grow-to-waypoint next-waypoint)
|
(grow-to-waypoint next-waypoint)
|
||||||
(log-info "At waypoint ~a" next-waypoint)
|
|
||||||
(when (equal? remaining-waypoints waypoints) ;; First ever waypoint. Do some warmup.
|
(when (equal? remaining-waypoints waypoints) ;; First ever waypoint. Do some warmup.
|
||||||
(log-info "Warming up.")
|
(printf "Warming up.\n")
|
||||||
(ping-randomly #f)
|
(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)
|
(ping-randomly)
|
||||||
(loop rest))]))
|
(loop rest))]))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue