allow some redirections in the url that looks for the new version

This commit is contained in:
Robby Findler 2019-03-24 19:20:47 -05:00
parent 70e0cac062
commit 683492f6fe

View File

@ -8,7 +8,8 @@
(define timeout 30) (define timeout 30)
(define (url->port url) (define (url->port url)
(get-pure-port (string->url url))) (get-pure-port (string->url url)
#:redirections 5))
(define error-value (define error-value
(case-lambda (case-lambda