random: use nths-unsafe in sample.

diff --git a/basis/random/random.factor b/basis/random/random.factor
index d2dae4335bf7a93875272aaf673474fd6cd379ec..230aec2f73c245630539010f2c67f5e46684224d 100644 (file)
--- a/basis/random/random.factor
+++ b/basis/random/random.factor
@@ -116,7 +116,7 @@ ERROR: too-many-samples seq n ;
 : sample ( seq n -- seq' )
     2dup [ length ] dip < [ too-many-samples ] when
     [ [ length iota >array ] dip [ randomize-n-last ] keep tail-slice* ]
-    [ drop ] 2bi nths ;
+    [ drop ] 2bi nths-unsafe ;
 
 : delete-random ( seq -- elt )
     [ length random-integer ] keep