From be7c98146255b21c94e17049795b05dc478785ca Mon Sep 17 00:00:00 2001 From: John Benediktsson 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