Fixing basis -> extra dependencies

[factor.git] / basis / random / random.factor

diff --git a/basis/random/random.factor b/basis/random/random.factor
index 74b7a78723a8e5687900689789304e21ac73e71b..d37e2fc2b727c0fa219be4ae3e39e0ac9493fee5 100755 (executable)
--- a/basis/random/random.factor
+++ b/basis/random/random.factor
@@ -43,6 +43,9 @@ M: f random-32* ( obj -- * ) no-random-number-generator ;
         ] keep nth
     ] if ;
 
+: delete-random ( seq -- elt )
+    [ length random ] keep [ nth ] 2keep delete-nth ;
+
 : random-bits ( n -- r ) 2^ random ;
 
 : with-random ( tuple quot -- )