From 33939ba1f07bddce656cfd8e7d5cab8fb51ab8b9 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Fri, 17 Feb 2012 21:33:10 -0500 Subject: [PATCH] Better debug messages --- proxy.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/proxy.rkt b/proxy.rkt index 0122966..be38b1c 100644 --- a/proxy.rkt +++ b/proxy.rkt @@ -206,12 +206,13 @@ [#f ;; We're not authoritative so this is just a signal that we can't answer usefully (send-empty-reply w q)] [(referral zone-origin nameserver-rrs _) + (define referral-id (gensym 'referral)) (begin (write `(Referral for ,q + id ,referral-id to ,(domain-labels zone-origin) servers ,(map domain-labels (set-map nameserver-rrs rr-rdata)))) (newline)) - (define referral-id (gensym 'referral)) (transition w (spawn (network-query client-sock q