random: format delete-random better.

db4
John Benediktsson 2013-03-03 17:32:53 -08:00
parent 35c313c6b4
commit be7c981462
1 changed files with 2 additions and 1 deletions

View File

@ -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