Correction to contract

This commit is contained in:
Tony Garnock-Jones 2012-02-18 12:31:03 -05:00
parent 71bf542eee
commit 32bf05a9d4
1 changed files with 1 additions and 1 deletions

View File

@ -147,7 +147,7 @@
(define (make-dns-address ip-address)
(udp-address (ip->host-name ip-address) 53))
;; network-query : UdpAddress Question DomainName NEListOf<DomainName> UniqueId -> OsProcess
;; network-query : UdpAddress Question DomainName NEListOf<DomainName> UniqueId -> BootK
(define (network-query s q zone-origin server-names unique-id)
(os-big-bang/transition
(try-next-server (network-query-state (network-request s q zone-origin server-names unique-id)