From 9c231ebe6caafe8fdc9fbc4bf249d2506a8e7f5d Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Tue, 31 Jan 2012 13:44:09 -0500 Subject: [PATCH] Rearrange timeout loop a little --- network-query.rkt | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) diff --git a/network-query.rkt b/network-query.rkt index 566f567..8511328 100644 --- a/network-query.rkt +++ b/network-query.rkt @@ -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 Seconds