random: More leeway for pareto unit test. Python's pareto distribution behaves the...

diff --git a/basis/random/random-tests.factor b/basis/random/random-tests.factor
index 3bbcd943be4f3e81421cf23783d76a419fe4e4fa..76807cc62fbe147cdaf8f95c5f4f35c347e7f8bc 100644 (file)
--- a/basis/random/random-tests.factor
+++ b/basis/random/random-tests.factor
@@ -46,7 +46,7 @@ IN: random.tests
 { t t }
 [
     50000 [ 1 3 pareto-random-float ] replicate [ mean ] [ std ] bi
-    [ 1.5 .3 ~ ] [ 3 sqrt 2 / .3 ~ ] bi*
+    [ 1.5 .5 ~ ] [ 3 sqrt 2 / .5 ~ ] bi*
 ] unit-test
 
 { t t }