Log when waypoint is reached.

2014-05-04 16:38:03 -04:00 · 2014-05-04 16:38:03 -04:00 · ac44a27691
parent f732343f50
commit ac44a27691
1 changed files with 1 additions and 0 deletions
--- a/echo-client.rkt
+++ b/echo-client.rkt
@ -107,5 +107,6 @@
    ['() (void)]
    [(cons next-waypoint rest)
     (grow-to-waypoint next-waypoint)
+     (log-info "At waypoint ~a" next-waypoint)
     (ping-randomly)
     (loop rest)]))