update

server.rkt

@@ -9,9 +9,10 @@
 
 (define (logger req)
   (define client (request-client-ip req))
-  (when (equal? client "::1")
+  (message "Request:" (url->string (request-uri req)) 
-    (set! client "localhost"))
+           "from" (if (equal? client "::1")
-  (message "Request:" (url->string (request-uri req)) "from" client))
+                      "localhost" 
+                      client)))
 
 (define/contract (route-wrapper route-proc)
   (procedure? . -> . procedure?)