random: format delete-random better.

2013-03-03 17:32:53 -08:00 · 2013-03-03 17:32:53 -08:00 · be7c981462
parent 35c313c6b4
commit be7c981462
1 changed files with 2 additions and 1 deletions
--- a/basis/random/random.factor
+++ b/basis/random/random.factor
@ -114,7 +114,8 @@ ERROR: too-many-samples seq n ;
    [ drop ] 2bi nths ;

 : delete-random ( seq -- elt )
-    [ length random-integer ] keep [ nth ] 2keep remove-nth! drop ;
+    [ length random-integer ] keep
+    [ nth ] 2keep remove-nth! drop ;

 : with-random ( tuple quot -- )
    random-generator swap with-variable ; inline