dns.resolver: another fix

2008-05-29 10:11:54 -05:00 · 2008-05-29 10:11:54 -05:00 · a8cdb2226d
parent 3bd5144f20
commit a8cdb2226d
1 changed files with 1 additions and 1 deletions
--- a/extra/dns/resolver/resolver.factor
+++ b/extra/dns/resolver/resolver.factor
@ -70,7 +70,7 @@ IN: dns.resolver

 : name->ip/server ( name -- ip )
  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
    [ nip random rdata>> ]
    [ 2drop f ]