Handbook
Glossary
(with-http-request) ( request quot: ( chunk -- ) -- response )
Vocabulary
http.client.private
Inputs
request
an
object
quot
a
quotation
with stack effect
( chunk -- )
Outputs
response
an
object
Definition
USING:
accessors
destructors
http
io
kernel
math
namespaces
;
IN:
http.client.private
:
(with-http-request)
( request quot: ( chunk -- ) -- response )
swap
?default-proxy
request
[
<request-socket>
[
[
[
in>>
]
[
out>>
]
bi
[
?https-tunnel
]
with-streams*
]
[
out>>
[
request
get
write-request
]
with-output-stream*
]
[
in>>
[
read-response
dup
redirect?
request
get
redirects>>
0
>
and
[
t
]
[
~quotation~ ~quotation~ ~quotation~
2tri
f
]
if
]
with-input-stream*
]
tri
]
with-disposal
[
do-redirect
]
[
nip
]
if
]
with-variable
;
inline
recursive