factor: qualifying blank?, random fixes, renamed test file

[factor.git] / basis / etc-hosts / etc-hosts.factor

diff --git a/basis/etc-hosts/etc-hosts.factor b/basis/etc-hosts/etc-hosts.factor
index 4e102bba1d6e930949327e2971ad39d3af955041..351bcdf241330273bd771cf01f5015e95485016c 100644 (file)
--- a/basis/etc-hosts/etc-hosts.factor
+++ b/basis/etc-hosts/etc-hosts.factor
@@ -13,11 +13,11 @@ M: unix hosts-path "/etc/hosts" ;
 
 : parse-hosts ( path -- hosts )
     utf8 file-lines
-    [ [ blank? ] trim ] map harvest
+    [ [ unicode:blank? ] trim ] map harvest
     [ "#" head? ] reject
     [
-        [ blank? ] split1-when
-        [ blank? ] split-when harvest
+        [ unicode:blank? ] split1-when
+        [ unicode:blank? ] split-when harvest
     ] H{ } map>assoc ;
 
 MEMO: system-hosts ( -- hosts ) hosts-path parse-hosts ;