Better debug messages

2012-02-17 21:33:10 -05:00 · 2012-02-17 21:33:10 -05:00 · 33939ba1f0
parent b991160eab
commit 33939ba1f0
1 changed files with 2 additions and 1 deletions
--- 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