]> gitweb.factorcode.org Git - factor.git/blobdiff - extra/benchmark/unicode/unicode.factor
factor: words -> split-words, lines -> split-lines, fix errors
[factor.git] / extra / benchmark / unicode / unicode.factor
index b3568cf79c6ca3bd8b25b961e23a482cfd31222c..bb3c59649aa72894a6215114d3f669b470a027b2 100644 (file)
@@ -1,10 +1,10 @@
 ! Copyright (C) 2012 John Benediktsson
 ! See http://factorcode.org/license.txt for BSD license.
-USING: kernel math random sequences strings unicode ;
+USING: kernel math random sequences splitting strings unicode ;
 IN: benchmark.unicode
 
 : crazy-unicode-string ( -- string )
-    8 [ 8 0xffff random-integers ] replicate unwords ;
+    8 [ 8 0xffff random-integers ] replicate join-words ;
 
 : unicode-benchmark ( -- )
     crazy-unicode-string 8 [