update client to work with more redirects

2008-01-31 11:34:03 -06:00 · 2008-01-31 11:34:03 -06:00 · fd4254ca09
parent eeade1d2b6
commit fd4254ca09
1 changed files with 1 additions and 1 deletions
--- a/extra/http/client/client.factor
+++ b/extra/http/client/client.factor
@ -44,7 +44,7 @@ DEFER: http-get-stream
    #! Should this support Location: headers that are
    #! relative URLs?
    pick 100 /i 3 = [
-        stream-close "Location" swap at nip http-get-stream
+        stream-close "location" swap header-single nip http-get-stream
    ] when ;

 : http-get-stream ( url -- code headers stream )