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)))))))))
|
(lp (acons k v headers) meta)))))))))
|
||||||
|
|
||||||
(define (read-request/mod-lisp port)
|
(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))
|
(call-with-values (lambda () (read-headers/mod-lisp port))
|
||||||
(lambda (headers meta)
|
(lambda (headers meta)
|
||||||
(build-request
|
(build-request
|
||||||
|
|
Loading…
Reference in a new issue