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

[factor.git] / extra / benchmark / chameneos-redux / chameneos-redux.factor

diff --git a/extra/benchmark/chameneos-redux/chameneos-redux.factor b/extra/benchmark/chameneos-redux/chameneos-redux.factor
index dd7a6f5374560bfdf84cbeb83f70a409d7502d2b..397209b5ea07855aed7a5e704562aa3610b4e7b7 100644 (file)
--- a/extra/benchmark/chameneos-redux/chameneos-redux.factor
+++ b/extra/benchmark/chameneos-redux/chameneos-redux.factor
@@ -1,8 +1,8 @@
 ! Copyright (C) 2009 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors arrays assocs combinators
-concurrency.mailboxes fry io kernel make math math.parser
-math.text.english sequences threads ;
+USING: accessors arrays combinators concurrency.mailboxes io
+kernel make math math.parser math.text.english sequences
+splitting threads ;
 IN: benchmark.chameneos-redux
 
 SYMBOLS: red yellow blue ;
@@ -80,7 +80,7 @@ TUPLE: meeting-place count mailbox ;
     ] if ;
 
 : number>chameneos-string ( n -- string )
-    number>string string>digits [ number>text ] { } map-as unwords ;
+    number>string string>digits [ number>text ] { } map-as join-words ;
 
 : chameneos-redux ( n colors -- )
     [ <meeting-place> ] [ make-creatures ] bi*