suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

hod-0618

Browse Source 
svn: r3431
This commit is contained in:
Jay McCarthy 2006-06-21 19:36:00 +00:00
parent be599fbb6b
commit 18cf27ac40
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/web-server/private/request.ss
View File

@ -186,7 +186,10 @@
(let find-amp ([amp-end (add1 key-end)]) (let find-amp ([amp-end (add1 key-end)])
(if (or (= amp-end len) (eq? (bytes-ref raw amp-end) (char->integer #\&))) (if (or (= amp-end len) (eq? (bytes-ref raw amp-end) (char->integer #\&)))
(list* (make-binding:form (list* (make-binding:form
(subbytes raw start key-end) (string->bytes/utf-8
(translate-escapes
(bytes->string/utf-8
(subbytes raw start key-end))))
(string->bytes/utf-8 (string->bytes/utf-8
(translate-escapes (translate-escapes
(bytes->string/utf-8 (bytes->string/utf-8