Fix http.client load error'

db4
Slava Pestov 2008-06-18 01:52:50 -05:00
parent 6d2ded44f2
commit 6aa23fd7a2
1 changed files with 3 additions and 7 deletions

View File

@ -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 ;