From 82a88ba57ad8713f5ebf19df6eb0806e68207cce Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sun, 10 Apr 2011 12:38:00 -0500
Subject: [PATCH] Decode TXT strings as utf8, use write instead of print.

---
 extra/dns/dns.factor | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

diff --git a/extra/dns/dns.factor b/extra/dns/dns.factor
index d9a283a6a5..70b4275660 100644
--- a/extra/dns/dns.factor
+++ b/extra/dns/dns.factor
@@ -344,18 +344,14 @@ M: TXT rdata>byte-array
         [
             binary <byte-reader> [
                 [
-                    read1 [
-                        read , t
-                    ] [
-                        f
-                    ] if*
+                    read1 [ read , t ] [ f ] if*
                 ] loop
             ] with-input-stream
-        ] { } make [ >string ] map
+        ] { } make [ utf8 decode ] map
     ] map ;
 
 : TXT. ( domain -- )
-    dns-TXT-query TXT-message>strings [ [ print ] each ] each ;
+    dns-TXT-query TXT-message>strings [ [ write ] each ] each ;
 
 : reverse-lookup ( reversed-ip -- message )
     PTR IN <query> dns-query ;