diff options
| -rw-r--r-- | gnu/installer/newt/network.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gnu/installer/newt/network.scm b/gnu/installer/newt/network.scm index b22cc713054..8a2ad84e0db 100644 --- a/gnu/installer/newt/network.scm +++ b/gnu/installer/newt/network.scm | |||
| @@ -117,8 +117,9 @@ network devices were found. Do you want to continue anyway?")) | |||
| 117 | FULL-VALUE tentatives, spaced by 1 second." | 117 | FULL-VALUE tentatives, spaced by 1 second." |
| 118 | (define (url-alive? url) | 118 | (define (url-alive? url) |
| 119 | (false-if-exception | 119 | (false-if-exception |
| 120 | (= (response-code (http-request url)) | 120 | (begin |
| 121 | 200))) | 121 | (http-request url) |
| 122 | #t))) | ||
| 122 | 123 | ||
| 123 | (define (ci-available?) | 124 | (define (ci-available?) |
| 124 | (dynamic-wind | 125 | (dynamic-wind |