factor: words -> split-words, lines -> split-lines, fix errors

[factor.git] / extra / geo-ip / geo-ip.factor

diff --git a/extra/geo-ip/geo-ip.factor b/extra/geo-ip/geo-ip.factor
index cf814e5c5ebbf574ccbeb13c8e7d4da0a6e54074..89c48b6adb281306707245f770b5f267ef4c5a38 100644 (file)
--- a/extra/geo-ip/geo-ip.factor
+++ b/extra/geo-ip/geo-ip.factor
@@ -3,7 +3,7 @@
 USING: accessors arrays assocs combinators combinators.smart csv
 grouping http.client interval-maps io.encodings.ascii io.files
 io.files.temp io.launcher io.pathnames ip-parser kernel math
-math.parser memoize sequences strings ;
+math.parser sequences splitting strings ;
 IN: geo-ip
 
 : db-path ( -- path ) "IpToCountry.csv" cache-file ;
@@ -33,7 +33,7 @@ TUPLE: ip-entry from to registry assigned city cntry country ;
 
 MEMO: ip-db ( -- seq )
     download-db ascii file-lines
-    [ "#" head? ] reject unlines string>csv
+    [ "#" head? ] reject join-lines string>csv
     [ parse-ip-entry ] map ;
 
 : filter-overlaps ( alist -- alist' )