Cosmetic
This commit is contained in:
parent
231e297975
commit
3dd3370b4b
|
@ -128,8 +128,9 @@
|
||||||
(send-message (answer->reply #f (empty-complete-answer))))]
|
(send-message (answer->reply #f (empty-complete-answer))))]
|
||||||
[(cons original-question _)
|
[(cons original-question _)
|
||||||
;; At least one question
|
;; At least one question
|
||||||
(write `(Looking up ,original-question
|
(begin (write `(Looking up ,original-question
|
||||||
with query id ,(dns-message-id request-message))) (newline)
|
with query id ,(dns-message-id request-message)))
|
||||||
|
(newline))
|
||||||
(os-big-bang 'no-state/packet-relay
|
(os-big-bang 'no-state/packet-relay
|
||||||
(send-message original-question)
|
(send-message original-question)
|
||||||
(subscribe/fresh wait-id
|
(subscribe/fresh wait-id
|
||||||
|
|
Loading…
Reference in New Issue