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

Un-privatising a word in http.client

db4
Alex Chapman 2008-11-01 20:39:18 +11:00
parent eb36537e99
commit 030619114f
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -89,10 +89,10 @@ M: too-many-redirects summary
drop drop
[ "Redirection limit of " % max-redirects # " exceeded" % ] "" make ; [ "Redirection limit of " % max-redirects # " exceeded" % ] "" make ;
<PRIVATE
DEFER: with-http-request DEFER: with-http-request
<PRIVATE
SYMBOL: redirects SYMBOL: redirects
: redirect-url ( request url -- request ) : redirect-url ( request url -- request )
@ -134,6 +134,8 @@ SYMBOL: redirects
request get url>> url-addr ascii <client> drop request get url>> url-addr ascii <client> drop
1 minutes over set-timeout ; 1 minutes over set-timeout ;
PRIVATE>
: with-http-request ( request quot: ( chunk -- ) -- response ) : with-http-request ( request quot: ( chunk -- ) -- response )
swap swap
request [ request [
@ -156,8 +158,6 @@ SYMBOL: redirects
[ do-redirect ] [ nip ] if [ do-redirect ] [ nip ] if
] with-variable ; inline recursive ] with-variable ; inline recursive
PRIVATE>
: success? ( code -- ? ) 200 299 between? ; : success? ( code -- ? ) 200 299 between? ;
ERROR: download-failed response data ; ERROR: download-failed response data ;