up
svn: r4825
This commit is contained in:
parent
d74f7c6aae
commit
2d49df701d
|
@ -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)]))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user