dns: Factor out filtering a and aaaa.

diff --git a/extra/dns/dns.factor b/extra/dns/dns.factor
index 637c0ebbd129557f727c0756133e00c4f9d427c6..23203a5934fdc9f5506678cc743ebf700b6468d5 100644 (file)
--- 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 ;