Fix http.client load error'
parent
6d2ded44f2
commit
6aa23fd7a2
|
@ -79,13 +79,9 @@ ERROR: download-failed response body ;
|
||||||
|
|
||||||
M: download-failed error.
|
M: download-failed error.
|
||||||
"HTTP download failed:" print nl
|
"HTTP download failed:" print nl
|
||||||
[
|
[ response>> write-response-line nl drop ]
|
||||||
response>>
|
[ body>> write ]
|
||||||
write-response-code
|
bi ;
|
||||||
write-response-message nl
|
|
||||||
drop
|
|
||||||
]
|
|
||||||
[ body>> write ] bi ;
|
|
||||||
|
|
||||||
: check-response ( response data -- response data )
|
: check-response ( response data -- response data )
|
||||||
over code>> success? [ download-failed ] unless ;
|
over code>> success? [ download-failed ] unless ;
|
||||||
|
|
Loading…
Reference in New Issue