Clean up a few lines of resolv.conf parser

diff --git a/extra/resolv-conf/resolv-conf.factor b/extra/resolv-conf/resolv-conf.factor
index 8b38f491162e6fa132cf2634a3acf9fa23fee63a..4ee0366f4543040d71385ffb4502a646dc2cc0e7 100644 (file)
--- a/extra/resolv-conf/resolv-conf.factor
+++ b/extra/resolv-conf/resolv-conf.factor
@@ -30,17 +30,18 @@ CONSTRUCTOR: resolv.conf ( -- resolv.conf )
 
 : trim-blanks ( string -- string' ) [ blank? ] trim ;
 
-: parse-nameserver ( resolv.conf string -- resolv.conf )
+: split-line ( resolv.conf string -- resolv.conf seq resolv.conf )
     trim-blanks " " split
-    [ trim-blanks ] map harvest over nameserver>> push-all ;
+    [ trim-blanks ] map harvest over ;
+
+: parse-nameserver ( resolv.conf string -- resolv.conf )
+    split-line nameserver>> push-all ;
 
 : parse-domain ( resolv.conf string -- resolv.conf )
-    trim-blanks " " split
-    [ trim-blanks ] map harvest over domain>> push-all ;
+    split-line domain>> push-all ;
 
 : parse-search ( resolv.conf string -- resolv.conf )
-    trim-blanks " " split
-    [ trim-blanks ] map harvest over search>> push-all ;
+    split-line search>> push-all ;
 
 : parse-sortlist ( resolv.conf string -- resolv.conf )
     trim-blanks " " split