syndicate-lang
/
racket-dns-2012
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Rearrange timeout loop a little

This commit is contained in:
Tony Garnock-Jones 2012-01-31 13:44:09 -05:00
parent e6568d49b5
commit 9c231ebe6c
1 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
network-query.rkt
View File

@ -119,14 +119,13 @@
;; give-up timeout limit.
(define (network-query/addresses s q zone-origin server-ips k)
(let try-with-timeout ((timeout first-timeout))
(network-query/addresses/timeout s q zone-origin server-ips timeout
(lambda (result)
(if (eq? result 'no-answer)
(let ((new-timeout (next-timeout timeout)))
(if new-timeout
(try-with-timeout new-timeout)
(k (set))))
(k result))))))
(if timeout
(network-query/addresses/timeout s q zone-origin server-ips timeout
(lambda (result)
(if (eq? result 'no-answer)
(try-with-timeout (next-timeout timeout))
(k result))))
(k (set)))))
;; network-query/addresses/timeout :
;; UdpAddress Question DomainName ListOf<IPv4> Seconds