Make random a generic so it can still be called on integers

diff --git a/basis/random/random-tests.factor b/basis/random/random-tests.factor
index 3854996f33f6a7d9b7b940c900268c20828cd4f7..feebdb26e410fb8551a22d4d4941be96e25f01d6 100644 (file)
--- a/basis/random/random-tests.factor
+++ b/basis/random/random-tests.factor
@@ -29,7 +29,7 @@ IN: random.tests
 [ { 1 2 } 3 sample ] [ too-many-samples?  ] must-fail-with
 
 [ 3 ] [ { 1 2 3 4 } 3 sample prune length ] unit-test
-[ 99 ] [ 100 99 sample prune length ] unit-test
+[ 99 ] [ 100 iota 99 sample prune length ] unit-test
 
 [ ]
 [ [ 100 random-bytes ] with-system-random drop ] unit-test

diff --git a/basis/random/random.factor b/basis/random/random.factor
index bfd107dbb64772824b5757e79a0c796296bbdd2e..85e4e078c3927e72cfe159f5674775874b9089ae 100644 (file)
--- a/basis/random/random.factor
+++ b/basis/random/random.factor
@@ -50,7 +50,11 @@ PRIVATE>
 : random-bits* ( numbits -- n )
     1 - [ random-bits ] keep set-bit ;
 
-: random ( seq -- elt )
+GENERIC: random ( obj -- elt )
+
+M: integer random random-integer ;
+
+M: sequence random
     [ f ] [
         [ length random-integer ] keep nth
     ] if-empty ;