From 67e63615bdf00dbfea44bbc1cdad148c14178322 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Wed, 10 Oct 2012 14:59:22 -0700
Subject: [PATCH] dns: Factor out filtering a and aaaa.

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

diff --git a/extra/dns/dns.factor b/extra/dns/dns.factor
index 637c0ebbd1..23203a5934 100644
--- a/extra/dns/dns.factor
+++ b/extra/dns/dns.factor
@@ -372,9 +372,14 @@ M: TXT rdata>byte-array
 : message>names ( message -- names )
     answer-section>> [ rdata>> name>> ] map ;
 
+: filter-message-rdata>names ( message quot -- names )
+    [ answer-section>> [ rdata>> ] map ] dip filter [ name>> ] map ; inline
+
 : message>a-names ( message -- names )
-    answer-section>>
-    [ rdata>> ] map [ a? ] filter [ name>> ] map ;
+    [ a? ] filter-message-rdata>names ;
+
+: message>aaaa-names ( message -- names )
+    [ aaaa? ] filter-message-rdata>names ;
 
 : message>mxs ( message -- assoc )
     answer-section>> [ rdata>> [ preference>> ] [ exchange>> ] bi 2array ] map ;