random: format delete-random better.

diff --git a/basis/random/random.factor b/basis/random/random.factor
index 0af42916f4f718aafcccc81e7dd0a6b87750c0f6..f425bb96e0afe24e4b4080dad1a855be2ab95883 100644 (file)
--- 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