simple-flat-file: using map! in some places.

diff --git a/basis/simple-flat-file/simple-flat-file.factor b/basis/simple-flat-file/simple-flat-file.factor
index a2fa8c3c4c11e05d518a1863225e224a1d5aeb68..49630510acd6b117dff758fb779b0e9579200671 100644 (file)
--- a/basis/simple-flat-file/simple-flat-file.factor
+++ b/basis/simple-flat-file/simple-flat-file.factor
@@ -17,19 +17,19 @@ IN: simple-flat-file
     ] when ;
 
 : parse-line ( line -- code-unicode )
-    split-column [ parse-hex ] map ;
+    split-column [ parse-hex ] map! ;
 
 : process-codetable-lines ( lines -- assoc )
-    drop-comments [ parse-line ] map ; 
+    drop-comments [ parse-line ] map! ;
 
 : flat-file>biassoc ( filename -- biassoc )
     utf8 file-lines process-codetable-lines >biassoc ;
 
 : split-; ( line -- array )
-    ";" split [ [ blank? ] trim ] map ;
+    ";" split [ [ blank? ] trim ] map! ;
 
 : data ( filename -- data )
-    utf8 file-lines drop-comments [ split-; ] map ;
+    utf8 file-lines drop-comments [ split-; ] map! ;
 
 SYMBOL: interned