This commit is contained in:
Tony Garnock-Jones 2012-02-17 16:05:31 -05:00
parent 231e297975
commit 3dd3370b4b
1 changed files with 3 additions and 2 deletions

View File

@ -128,8 +128,9 @@
(send-message (answer->reply #f (empty-complete-answer))))]
[(cons original-question _)
;; At least one question
(write `(Looking up ,original-question
with query id ,(dns-message-id request-message))) (newline)
(begin (write `(Looking up ,original-question
with query id ,(dns-message-id request-message)))
(newline))
(os-big-bang 'no-state/packet-relay
(send-message original-question)
(subscribe/fresh wait-id