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

update client to work with more redirects

db4
Doug Coleman 2008-01-31 11:34:03 -06:00
parent eeade1d2b6
commit fd4254ca09
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/http/client/client.factor
View File

@ -44,7 +44,7 @@ DEFER: http-get-stream
#! Should this support Location: headers that are #! Should this support Location: headers that are
#! relative URLs? #! relative URLs?
pick 100 /i 3 = [ pick 100 /i 3 = [
stream-close "Location" swap at nip http-get-stream stream-close "location" swap header-single nip http-get-stream
] when ; ] when ;
: http-get-stream ( url -- code headers stream ) : http-get-stream ( url -- code headers stream )