Typo in error message detection

(cherry picked from commit 7d1b00ff69)
2011-10-08 03:02:20 -04:00 · 2011-10-08 03:02:20 -04:00 · 3fefe33c2c
commit 3fefe33c2c
parent 82b0237cd1
1 changed files with 3 additions and 3 deletions
--- a/collects/meta/web/download/mirror-link.rkt
+++ b/collects/meta/web/download/mirror-link.rkt
@ -147,10 +147,10 @@ Polling a URL can result in one of four options:
  (define r
    (with-handlers ([exn:fail? exn-message])
      (call/input-url (string->url url) head-impure-port check-contents)))
-  (if (boolean? r)
-    r
+  (if (string? r)
    (begin (eprintf "WARNING: failure getting http info for ~a (~a)\n" url r)
-           #f)))
+           #f)
+    r))

 (define (verify-ftp url)
  (define-values [host port? path]