diff options
| -rw-r--r-- | tissue/web/server.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/tissue/web/server.scm b/tissue/web/server.scm index 2e59a77..e7b2019 100644 --- a/tissue/web/server.scm +++ b/tissue/web/server.scm @@ -53,9 +53,10 @@ (define (log-request request) "Log @var{request} to standard output." - (format #t "~a ~a\n" - (request-method request) - (uri-path (request-uri request)))) + (display (request-method request)) + (display " ") + (display (uri->string (request-uri request))) + (newline)) (define %mime-types '(("gif" image/gif) |