http.client: remove unused word.

diff --git a/basis/http/client/client.factor b/basis/http/client/client.factor
index c0adf0e94bede9e4d8de8e014e13be4ea30cdfc3..f6a4948e90c3d1c0d3869c31a53ec4c8396ee562 100644 (file)
--- a/basis/http/client/client.factor
+++ b/basis/http/client/client.factor
@@ -158,9 +158,6 @@ ERROR: download-failed response ;
 : check-response ( response -- response )
     dup code>> success? [ download-failed ] unless ;
 
-: check-response-with-body ( response body -- response body )
-    [ >>body check-response ] keep ;
-
 : with-http-request* ( request quot: ( chunk -- ) -- response )
     [ (with-http-request) ] with-destructors ; inline