From eb25325f879c92c13accbba4dcf834dde39671ea Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sun, 7 Jul 2019 11:01:41 -0500
Subject: [PATCH] simple-flat-file: 1.3s -> 300ms for parsing the unicode txt
 file.

Somehow it's spending a ton of time in <string> if split-; is not inlined.
---
 basis/simple-flat-file/simple-flat-file.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/simple-flat-file/simple-flat-file.factor b/basis/simple-flat-file/simple-flat-file.factor
index 4fb68e2cf9..6e3cd4edfa 100644
--- a/basis/simple-flat-file/simple-flat-file.factor
+++ b/basis/simple-flat-file/simple-flat-file.factor
@@ -30,7 +30,7 @@ IN: simple-flat-file
     utf8 file-lines process-codetable-lines >biassoc ;
 
 : split-; ( line -- array )
-    ";" split [ [ blank? ] trim ] map! ;
+    ";" split [ [ blank? ] trim ] map! ; inline
 
 : load-data-file ( filename -- data )
     utf8 file-lines drop-comments [ split-; ] map! ;