Fix dangling-subscription bug
This commit is contained in:
parent
b22f7edbd0
commit
f86c372baa
|
@ -252,7 +252,9 @@
|
||||||
(subscribe referral-id
|
(subscribe referral-id
|
||||||
(message-handlers w
|
(message-handlers w
|
||||||
[(network-reply (== referral-id) #f) ;; name-error/NXDOMAIN
|
[(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)
|
[(network-reply (== referral-id) ans)
|
||||||
(define-values (new-zone ignored-timers) (incorporate-complete-answer ans zone))
|
(define-values (new-zone ignored-timers) (incorporate-complete-answer ans zone))
|
||||||
(when (log-level? (current-logger) 'debug)
|
(when (log-level? (current-logger) 'debug)
|
||||||
|
|
Loading…
Reference in New Issue