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

[factor.git] / extra / benchmark / unicode / unicode.factor

diff --git a/extra/benchmark/unicode/unicode.factor b/extra/benchmark/unicode/unicode.factor
index 80c552add1ffd618f223e625eb38c41ac784309f..b3568cf79c6ca3bd8b25b961e23a482cfd31222c 100644 (file)
--- a/extra/benchmark/unicode/unicode.factor
+++ b/extra/benchmark/unicode/unicode.factor
@@ -4,7 +4,7 @@ USING: kernel math random sequences strings unicode ;
 IN: benchmark.unicode
 
 : crazy-unicode-string ( -- string )
-    8 [ 8 0xffff random-integers ] replicate " " join ;
+    8 [ 8 0xffff random-integers ] replicate unwords ;
 
 : unicode-benchmark ( -- )
     crazy-unicode-string 8 [