Fix dangling-subscription bug

2012-03-06 14:33:36 -05:00 · 2012-03-06 14:33:36 -05:00 · f86c372baa
parent b22f7edbd0
commit f86c372baa
1 changed files with 3 additions and 1 deletions
--- a/proxy.rkt
+++ b/proxy.rkt
@ -252,7 +252,9 @@
 	  (subscribe referral-id
 	    (message-handlers w
 	      [(network-reply (== referral-id) #f) ;; name-error/NXDOMAIN
-	       (transition w (send-message (answered-question q #f)))]
+	       (transition w
+		 (unsubscribe referral-id)
+		 (send-message (answered-question q #f)))]
 	      [(network-reply (== referral-id) ans)
 	       (define-values (new-zone ignored-timers) (incorporate-complete-answer ans zone))
 	       (when (log-level? (current-logger) 'debug)