Fix http.client load error'

2008-06-18 01:52:50 -05:00 · 2008-06-18 01:52:50 -05:00 · 6aa23fd7a2
parent 6d2ded44f2
commit 6aa23fd7a2
1 changed files with 3 additions and 7 deletions
--- a/extra/http/client/client.factor
+++ b/extra/http/client/client.factor
@ -79,13 +79,9 @@ ERROR: download-failed response body ;

 M: download-failed error.
    "HTTP download failed:" print nl
-    [
-        response>>
-            write-response-code
-            write-response-message nl
-        drop
-    ]
-    [ body>> write ] bi ;
+    [ response>> write-response-line nl drop ]
+    [ body>> write ]
+    bi ;

 : check-response ( response data -- response data )
    over code>> success? [ download-failed ] unless ;