From ddb8da0181fe3e49f13f7692daca26e4c13c1079 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Sun, 13 Oct 2013 21:48:13 -0700 Subject: [PATCH] update --- server.rkt | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/server.rkt b/server.rkt index 7efada8..8b11b10 100755 --- a/server.rkt +++ b/server.rkt @@ -9,9 +9,10 @@ (define (logger req) (define client (request-client-ip req)) - (when (equal? client "::1") - (set! client "localhost")) - (message "Request:" (url->string (request-uri req)) "from" client)) + (message "Request:" (url->string (request-uri req)) + "from" (if (equal? client "::1") + "localhost" + client))) (define/contract (route-wrapper route-proc) (procedure? . -> . procedure?)