Set the socket protocol family

Allows the use of an IPv6 nameserver
2013-03-02 13:36:34 -05:00 · 2013-03-02 13:36:34 -05:00 · 312792ac4d
commit 312792ac4d
parent 3ab83001b4
1 changed files with 1 additions and 1 deletions
--- a/collects/net/dns.rkt
+++ b/collects/net/dns.rkt
@ -288,7 +288,7 @@

  (let* ([query (make-query (random 256) (string->bytes/latin-1 addr)
                            type class)]
-         [udp (udp-open-socket)]
+         [udp (udp-open-socket nameserver 53)]
         [reply
          (dynamic-wind
            void