steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

http.client: add quotation stack effects.

db4
John Benediktsson 2013-09-23 15:47:31 -07:00
parent 6de8367223
commit 9cc27f22f7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/http/client/client.factor
View File

@ -163,7 +163,7 @@ ERROR: download-failed response ;
: check-response-with-body ( response body -- response body ) : check-response-with-body ( response body -- response body )
[ >>body check-response ] keep ; [ >>body check-response ] keep ;
: with-http-request ( request quot -- response ) : with-http-request ( request quot: ( chunk -- ) -- response )
[ (with-http-request) ] with-destructors ; inline [ (with-http-request) ] with-destructors ; inline
: http-request ( request -- response data ) : http-request ( request -- response data )
@ -176,7 +176,7 @@ ERROR: download-failed response ;
: http-get ( url -- response data ) : http-get ( url -- response data )
<get-request> http-request ; <get-request> http-request ;
: with-http-get ( url quot -- response ) : with-http-get ( url quot: ( chunk -- ) -- response )
[ <get-request> ] dip with-http-request ; inline [ <get-request> ] dip with-http-request ; inline
: download-name ( url -- name ) : download-name ( url -- name )