From e90fd3b942e0113e627d9cc76636f86d8228a33b Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Fri, 25 Feb 2011 21:08:00 -0800 Subject: [PATCH] Fix usage note in dns vocab, move tools.dns from basis to extra since dns vocab is in extra --- extra/dns/dns.factor | 1 - {basis => extra}/tools/dns/authors.txt | 0 {basis => extra}/tools/dns/dns.factor | 2 +- 3 files changed, 1 insertion(+), 2 deletions(-) rename {basis => extra}/tools/dns/authors.txt (100%) rename {basis => extra}/tools/dns/dns.factor (92%) diff --git a/extra/dns/dns.factor b/extra/dns/dns.factor index a0e6ba5f6e..802d4d7277 100644 --- a/extra/dns/dns.factor +++ b/extra/dns/dns.factor @@ -368,7 +368,6 @@ M: SOA rdata>byte-array : message>query-name ( message -- string ) query>> first name>> dotted> ; -USE: nested-comments (* M: string resolve-host dup >lower "localhost" = [ diff --git a/basis/tools/dns/authors.txt b/extra/tools/dns/authors.txt similarity index 100% rename from basis/tools/dns/authors.txt rename to extra/tools/dns/authors.txt diff --git a/basis/tools/dns/dns.factor b/extra/tools/dns/dns.factor similarity index 92% rename from basis/tools/dns/dns.factor rename to extra/tools/dns/dns.factor index f59a9da217..c3b6ad87e1 100644 --- a/basis/tools/dns/dns.factor +++ b/extra/tools/dns/dns.factor @@ -7,7 +7,7 @@ IN: tools.dns [ write " has address " write ] [ print ] bi* ; : a-message. ( message -- ) - [ message>query-name ] [ message>names ] bi + [ message>query-name ] [ message>a-names ] bi [ a-line. ] with each ; : mx-line. ( host pair -- )