factor: use more split/join words

[factor.git] / basis / resolv-conf / resolv-conf.factor

diff --git a/basis/resolv-conf/resolv-conf.factor b/basis/resolv-conf/resolv-conf.factor
index bbcbc623b3166f65d243c2d5d580a13d56b39a7b..efd548d68101065e819c1f59912d460e4a36794c 100644 (file)
--- a/basis/resolv-conf/resolv-conf.factor
+++ b/basis/resolv-conf/resolv-conf.factor
@@ -35,7 +35,7 @@ CONSTRUCTOR: <resolv.conf> resolv.conf ( -- resolv.conf )
 : trim-blanks ( string -- string' ) [ blank? ] trim ;
 
 : split-line ( resolv.conf string -- resolv.conf seq resolv.conf )
-    trim-blanks " " split
+    trim-blanks split-words
     [ trim-blanks ] map harvest over ;
 
 : parse-nameserver ( resolv.conf string -- resolv.conf )
@@ -51,7 +51,7 @@ CONSTRUCTOR: <resolv.conf> resolv.conf ( -- resolv.conf )
     split-line search>> push-all ;
 
 : parse-sortlist ( resolv.conf string -- resolv.conf )
-    trim-blanks " " split
+    trim-blanks split-words
     [ trim-blanks "/" split1 <network> ] map >>sortlist ;
 
 ERROR: unsupported-resolv.conf-option string ;