Rename and add sorting words

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

diff --git a/extra/benchmark/splay/splay.factor b/extra/benchmark/splay/splay.factor
index 1872fb2facf0c675dfa1a2905a5c5993b58b19f2..ce074a7febabd8609f8a26b3500de1a5cb048fe0 100644 (file)
--- a/extra/benchmark/splay/splay.factor
+++ b/extra/benchmark/splay/splay.factor
@@ -15,6 +15,6 @@ IN: benchmark.splay
 : splay-benchmark ( -- )
     100,000 initial-alist 10,000 cut
     [ >splay ] [ randomize 10,000 head ] bi
-    change-random keys dup natural-sort assert= ;
+    change-random keys dup sort assert= ;
 
 MAIN: splay-benchmark