core: Add words/unwords/unwords-as and use them.

[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 2b6d79feeb29ec0566d48128c0a9ed783e7815aa..dd7a6f5374560bfdf84cbeb83f70a409d7502d2b 100644 (file)
--- a/extra/benchmark/chameneos-redux/chameneos-redux.factor
+++ b/extra/benchmark/chameneos-redux/chameneos-redux.factor
@@ -80,7 +80,7 @@ TUPLE: meeting-place count mailbox ;
     ] if ;
 
 : number>chameneos-string ( n -- string )
-    number>string string>digits [ number>text ] { } map-as " " join ;
+    number>string string>digits [ number>text ] { } map-as unwords ;
 
 : chameneos-redux ( n colors -- )
     [ <meeting-place> ] [ make-creatures ] bi*