dns.resolver: another fix

db4
Eduardo Cavazos 2008-05-29 10:11:54 -05:00
parent 3bd5144f20
commit a8cdb2226d
1 changed files with 1 additions and 1 deletions

View File

@ -70,7 +70,7 @@ IN: dns.resolver
: name->ip/server ( name -- ip ) : name->ip/server ( name -- ip )
canonical/server canonical/server
dup A IN query boa <query-message> ask* answer-section>> dup A IN query boa query->message ask* answer-section>>
[ type>> A = ] filter dup empty? not [ type>> A = ] filter dup empty? not
[ nip random rdata>> ] [ nip random rdata>> ]
[ 2drop f ] [ 2drop f ]