random: implement a generic random* to speed up randoms

[factor.git] / basis / fixups / fixups.factor

diff --git a/basis/fixups/fixups.factor b/basis/fixups/fixups.factor
index 338add29fbe4c5180c27b075fcc7cdd5585b51f7..b83a3cd4621d73227f6e599c33e51138fe7e43e9 100644 (file)
--- a/basis/fixups/fixups.factor
+++ b/basis/fixups/fixups.factor
@@ -59,6 +59,7 @@ CONSTANT: word-renames {
     { "compare-slots" { "compare-with-spec" "0.99" } }
     { "natural-sort!" { "sort!" "0.99" } }
     { "natural-bubble-sort!" { "bubble-sort!" "0.99" } }
+    { "random-integers" { "randoms" "0.99" } }
 }
 
 : compute-assoc-fixups ( continuation name assoc -- seq )