From bc53abe0b6fd969906f371735a34a17ef5b6de70 Mon Sep 17 00:00:00 2001
From: Andy Wingo
Date: Sat, 4 Dec 2010 13:15:43 +0100
Subject: mod-lisp sets client sockets to iso-8859-1

* tekuti/mod-lisp.scm (read-request/mod-lisp): Set port's encoding to
  latin-1, so that we reading one char reads one byte.
---
 tekuti/mod-lisp.scm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/tekuti/mod-lisp.scm b/tekuti/mod-lisp.scm
index 458e187..bb35e10 100644
--- a/tekuti/mod-lisp.scm
+++ b/tekuti/mod-lisp.scm
@@ -116,6 +116,9 @@
                     (lp (acons k v headers) meta)))))))))
 
 (define (read-request/mod-lisp port)
+  ;; See the note in (web request) regarding chars, bytes, and strings
+  ;; for more notes on charsets.
+  (set-port-encoding! port "ISO-8859-1")
   (call-with-values (lambda () (read-headers/mod-lisp port))
     (lambda (headers meta)
       (build-request
-- 
cgit v1.2.3-54-g00ecf