suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Typo in error message detection

Browse Source 
(cherry picked from commit 7d1b00ff69)
This commit is contained in:
Eli Barzilay 2011-10-08 03:02:20 -04:00
parent 82b0237cd1
commit 3fefe33c2c
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/meta/web/download/mirror-link.rkt
View File

@ -147,10 +147,10 @@ Polling a URL can result in one of four options:
(define r (define r
(with-handlers ([exn:fail? exn-message]) (with-handlers ([exn:fail? exn-message])
(call/input-url (string->url url) head-impure-port check-contents))) (call/input-url (string->url url) head-impure-port check-contents)))
(if (boolean? r) (if (string? r)
r
(begin (eprintf "WARNING: failure getting http info for ~a (~a)\n" url r) (begin (eprintf "WARNING: failure getting http info for ~a (~a)\n" url r)
#f))) #f)
r))
(define (verify-ftp url) (define (verify-ftp url)
(define-values [host port? path] (define-values [host port? path]