Set the socket protocol family

Allows the use of an IPv6 nameserver original commit: 312792ac4d
2013-03-02 13:36:34 -05:00 · 2013-03-02 13:36:34 -05:00 · 1f8820eeaf
commit 1f8820eeaf
parent e128f02d8d
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