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.
This commit is contained in:
parent
83a569885a
commit
bc53abe0b6
1 changed files with 3 additions and 0 deletions
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue