From 280177279a28be4b92e89d02d5404776c35f0e1c Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Tue, 21 Jul 2015 12:06:17 -0700 Subject: [PATCH] dns: remove nested-comment, add comment about resolve-host --- extra/dns/dns.factor | 20 +++++++++----------- 1 file changed, 9 insertions(+), 11 deletions(-) diff --git a/extra/dns/dns.factor b/extra/dns/dns.factor index 726dcd21b9..d8e3f6bdf7 100644 --- a/extra/dns/dns.factor +++ b/extra/dns/dns.factor @@ -5,9 +5,8 @@ combinators combinators.smart constructors destructors grouping io io.binary io.encodings.binary io.encodings.string io.encodings.utf8 io.sockets io.sockets.private io.streams.byte-array io.timeouts kernel make math math.bitwise -math.parser namespaces nested-comments random sequences -slots.syntax splitting system vectors vocabs strings -ascii ; +math.parser namespaces random sequences slots.syntax splitting +system vectors vocabs strings ascii ; IN: dns : with-input-seek ( n seek-type quot -- ) @@ -399,14 +398,13 @@ M: TXT rdata>byte-array : message>query-name ( message -- string ) query>> first name>> dotted> ; -(* -M: string resolve-host - dup >lower "localhost" = [ - drop resolve-localhost - ] [ - dns-A-query message>a-names [ ] map - ] if ; -*) +! XXX: Turn on someday for nonblocking DNS lookups +! M: string resolve-host + ! dup >lower "localhost" = [ + ! drop resolve-localhost + ! ] [ + ! dns-A-query message>a-names [ ] map + ! ] if ; HOOK: initial-dns-servers os ( -- sequence )