From be7c98146255b21c94e17049795b05dc478785ca Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sun, 3 Mar 2013 17:32:53 -0800
Subject: [PATCH] random: format delete-random better.

---
 basis/random/random.factor | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/basis/random/random.factor b/basis/random/random.factor
index 0af42916f4..f425bb96e0 100644
--- 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