From 1f8820eeafa3beba35e04e1552e0588b370e12c2 Mon Sep 17 00:00:00 2001
From: Asumu Takikawa <asumu@ccs.neu.edu>
Date: Sat, 2 Mar 2013 13:36:34 -0500
Subject: [PATCH] Set the socket protocol family

Allows the use of an IPv6 nameserver

original commit: 312792ac4dc5235819ffb3de8e86e7d6012b47ce
---
 collects/net/dns.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/net/dns.rkt b/collects/net/dns.rkt
index 853fc37104..5d4727a1a4 100644
--- 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