From 518051a4b39c2063bf57480e666c022f13ecfca7 Mon Sep 17 00:00:00 2001 From: Asumu Takikawa Date: Thu, 4 Apr 2013 15:59:39 -0400 Subject: [PATCH] Fix the returned type of `dns-get-mail-exchanger`. original commit: 8483a1493f46b2929dce361e39897dede30476e9 --- collects/net/dns.rkt | 4 ++-- collects/tests/net/dns.rkt | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/net/dns.rkt b/collects/net/dns.rkt index 1bb6a12bf0..3c61aa72e0 100644 --- a/collects/net/dns.rkt +++ b/collects/net/dns.rkt @@ -25,7 +25,7 @@ [dns-get-mail-exchanger (-> (or/c ip-address? ip-address-string?) string? - (or/c bytes? string?))] + string?)] [dns-find-nameserver (-> (or/c ip-address-string? #f))])) @@ -398,7 +398,7 @@ (values (let loop ([ans ans][best-pref +inf.0][exchanger #f]) (cond [(null? ans) - (or exchanger + (or (and exchanger (bytes->string/latin-1 exchanger)) ;; Does 'soa mean that the input address is fine? (and (ormap (lambda (ns) (eq? (rr-type ns) 'soa)) nss) diff --git a/collects/tests/net/dns.rkt b/collects/tests/net/dns.rkt index e4357721d3..495c0c0e6e 100644 --- a/collects/tests/net/dns.rkt +++ b/collects/tests/net/dns.rkt @@ -12,7 +12,7 @@ (define *racket-url* "racket-lang.org") (define *racket-host* "champlain.ccs.neu.edu") (define *racket-ip* "129.10.115.116") -(define *racket-mx* #"aspmx.l.google.com") +(define *racket-mx* "aspmx.l.google.com") (define *kame-url* "www.kame.net") (define *kame-ip* "2001:200:dff:fff1:216:3eff:feb1:44d7")