>From 00b99fec62f8999f4ae151f8d71bc0f66de63a00 Mon Sep 17 00:00:00 2001 From: Neil Jerram Date: Fri, 21 Jan 2011 16:33:44 +0000 Subject: [PATCH 2/6] Update body-related calls to new API --- tekuti/mod-lisp.scm | 6 +++--- 1 files changed, 3 insertions(+), 3 deletions(-) diff --git a/tekuti/mod-lisp.scm b/tekuti/mod-lisp.scm index c302f58..f644643 100644 --- a/tekuti/mod-lisp.scm +++ b/tekuti/mod-lisp.scm @@ -249,7 +249,7 @@ (let ((req (read-request/mod-lisp port))) (values port req - (read-request-body/latin-1 req)))) + (read-request-body req)))) (lambda (k . args) (false-if-exception (close-port port))))))))))))) @@ -259,9 +259,9 @@ (cond ((not body)) ; pass ((string? body) - (write-response-body/latin-1 response body)) + (write-response-body response (string->utf8 body))) ((bytevector? body) - (write-response-body/bytevector response body)) + (write-response-body response body)) (else (error "Expected a string or bytevector for body" body))) (close-port (response-port response)))) -- 1.7.1