basis: ERROR: changes.

[factor.git] / basis / http / client / client.factor

diff --git a/basis/http/client/client.factor b/basis/http/client/client.factor
index b1a9daed1f857aad986bd9c7b91db4c98737f47d..902d066b7fc7e52568b264a959f105bbf4acf9c3 100644 (file)
--- a/basis/http/client/client.factor
+++ b/basis/http/client/client.factor
@@ -93,7 +93,7 @@ SYMBOL: redirects
         response "location" header redirect-url
         response code>> 307 = [ "GET" >>method ] unless
         quot (with-http-request)
-    ] [ too-many-redirects ] if ; inline recursive
+    ] [ throw-too-many-redirects ] if ; inline recursive
 
 : read-chunk-size ( -- n )
     read-crlf ";" split1 drop [ blank? ] trim-tail