suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix the returned type of dns-get-mail-exchanger.

Browse Source 
original commit: 8483a1493f
This commit is contained in:
Asumu Takikawa 2013-04-04 15:59:39 -04:00
parent e3c806296d
commit 518051a4b3
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/net/dns.rkt
View File

@ -25,7 +25,7 @@
[dns-get-mail-exchanger [dns-get-mail-exchanger
(-> (or/c ip-address? ip-address-string?) (-> (or/c ip-address? ip-address-string?)
string? string?
(or/c bytes? string?))] string?)]
[dns-find-nameserver [dns-find-nameserver
(-> (or/c ip-address-string? #f))])) (-> (or/c ip-address-string? #f))]))
@ -398,7 +398,7 @@
(values (let loop ([ans ans][best-pref +inf.0][exchanger #f]) (values (let loop ([ans ans][best-pref +inf.0][exchanger #f])
(cond (cond
[(null? ans) [(null? ans)
(or exchanger (or (and exchanger (bytes->string/latin-1 exchanger))
;; Does 'soa mean that the input address is fine? ;; Does 'soa mean that the input address is fine?
(and (ormap (lambda (ns) (eq? (rr-type ns) 'soa)) (and (ormap (lambda (ns) (eq? (rr-type ns) 'soa))
nss) nss)

2
collects/tests/net/dns.rkt
View File

@ -12,7 +12,7 @@
(define *racket-url* "racket-lang.org") (define *racket-url* "racket-lang.org")
(define *racket-host* "champlain.ccs.neu.edu") (define *racket-host* "champlain.ccs.neu.edu")
(define *racket-ip* "129.10.115.116") (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-url* "www.kame.net")
(define *kame-ip* "2001:200:dff:fff1:216:3eff:feb1:44d7") (define *kame-ip* "2001:200:dff:fff1:216:3eff:feb1:44d7")