svn: r4825
This commit is contained in:
Jay McCarthy 2006-11-11 06:41:17 +00:00
parent d74f7c6aae
commit 2d49df701d

View File

@ -177,7 +177,7 @@
(network-error 'read-bindings "Post request contained a non-numeric content-length")])] (network-error 'read-bindings "Post request contained a non-numeric content-length")])]
[#f [#f
(let ([raw-bytes (apply bytes-append (read-to-eof in))]) (let ([raw-bytes (apply bytes-append (read-to-eof in))])
(parse-bindings raw-bytes))])])] (values (parse-bindings raw-bytes) raw-bytes))])])]
[meth [meth
(values empty #f)])) (values empty #f)]))