Set the socket protocol family
Allows the use of an IPv6 nameserver
This commit is contained in:
parent
3ab83001b4
commit
312792ac4d
|
@ -288,7 +288,7 @@
|
||||||
|
|
||||||
(let* ([query (make-query (random 256) (string->bytes/latin-1 addr)
|
(let* ([query (make-query (random 256) (string->bytes/latin-1 addr)
|
||||||
type class)]
|
type class)]
|
||||||
[udp (udp-open-socket)]
|
[udp (udp-open-socket nameserver 53)]
|
||||||
[reply
|
[reply
|
||||||
(dynamic-wind
|
(dynamic-wind
|
||||||
void
|
void
|
||||||
|
|
Loading…
Reference in New Issue
Block a user