From b93bc1ac5ee09f39b0c944530ffb39ac6704bc30 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 2 Feb 2017 16:21:06 -0800
Subject: [PATCH] simple-flat-file: rename ``data`` to ``load-data-file``.

---
 basis/simple-flat-file/simple-flat-file.factor | 4 ++--
 basis/unicode/collation/collation.factor       | 3 ++-
 basis/unicode/data/data.factor                 | 6 +++---
 basis/unicode/normalize/normalize-tests.factor | 2 +-
 4 files changed, 8 insertions(+), 7 deletions(-)

diff --git a/basis/simple-flat-file/simple-flat-file.factor b/basis/simple-flat-file/simple-flat-file.factor
index f39bce1288..c8caaed651 100644
--- a/basis/simple-flat-file/simple-flat-file.factor
+++ b/basis/simple-flat-file/simple-flat-file.factor
@@ -29,7 +29,7 @@ IN: simple-flat-file
 : split-; ( line -- array )
     ";" split [ [ blank? ] trim ] map! ;
 
-: data ( filename -- data )
+: load-data-file ( filename -- data )
     utf8 file-lines drop-comments [ split-; ] map! ;
 
 : expand-range ( range -- range' )
@@ -45,4 +45,4 @@ IN: simple-flat-file
     dup values members [ intern ] curry assoc-map ;
 
 : load-interval-file ( filename -- table )
-    data intern-values expand-ranges ;
+    load-data-file intern-values expand-ranges ;
diff --git a/basis/unicode/collation/collation.factor b/basis/unicode/collation/collation.factor
index be82f697cd..36ac433b6a 100644
--- a/basis/unicode/collation/collation.factor
+++ b/basis/unicode/collation/collation.factor
@@ -23,7 +23,8 @@ TUPLE: weight primary secondary tertiary ignorable? ;
     " " split [ hex> ] "" map-as ;
 
 : parse-ducet ( file -- ducet )
-    data [ [ parse-keys ] [ parse-weight ] bi* ] H{ } assoc-map-as ;
+    load-data-file
+    [ [ parse-keys ] [ parse-weight ] bi* ] H{ } assoc-map-as ;
 
 "vocab:unicode/collation/allkeys.txt" parse-ducet ducet set-global
 
diff --git a/basis/unicode/data/data.factor b/basis/unicode/data/data.factor
index 978aa18606..ed77842365 100644
--- a/basis/unicode/data/data.factor
+++ b/basis/unicode/data/data.factor
@@ -77,7 +77,7 @@ PRIVATE>
 ! Loading data from UnicodeData.txt
 
 : load-data ( -- data )
-    "vocab:unicode/data/UnicodeData.txt" data ;
+    "vocab:unicode/data/UnicodeData.txt" load-data-file ;
 
 : (process-data) ( index data -- newdata )
     [ [ nth ] keep first swap ] with { } map>assoc
@@ -170,7 +170,7 @@ C: <code-point> code-point
 
 ! Extra properties {{[a,b],prop}}
 : parse-properties ( -- assoc )
-    "vocab:unicode/data/PropList.txt" data [
+    "vocab:unicode/data/PropList.txt" load-data-file [
         [
             ".." split1 [ dup ] unless*
             [ hex> ] bi@ 2array
@@ -187,7 +187,7 @@ C: <code-point> code-point
 
 ! Special casing data
 : load-special-casing ( -- special-casing )
-    "vocab:unicode/data/SpecialCasing.txt" data
+    "vocab:unicode/data/SpecialCasing.txt" load-data-file
     [ length 5 = ] filter
     [ [ set-code-point ] each ] H{ } make ;
 
diff --git a/basis/unicode/normalize/normalize-tests.factor b/basis/unicode/normalize/normalize-tests.factor
index f71a7645f4..51630d2932 100644
--- a/basis/unicode/normalize/normalize-tests.factor
+++ b/basis/unicode/normalize/normalize-tests.factor
@@ -28,7 +28,7 @@ IN: unicode.normalize.tests
     ] assoc-all? ;
 
 { 17768 { } } [
-    "vocab:unicode/normalize/NormalizationTest.txt" data
+    "vocab:unicode/normalize/NormalizationTest.txt" load-data-file
     [ 5 head [ " " split [ hex> ] "" map-as ] map ] map
     [ length ] keep [
         {
-- 
2.34.1