1
0
Fork 0

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:
Andy Wingo 2010-12-04 13:15:43 +01:00
parent 83a569885a
commit bc53abe0b6

View file

@ -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