Remove unused error class

db4
Slava Pestov 2008-10-05 20:31:48 -05:00
parent a30dbec5fb
commit 46c3f0def1
1 changed files with 5 additions and 6 deletions
basis/random

View File

@ -51,13 +51,12 @@ M: sequence random ( seq -- elt )
[ length random-integer ] keep nth
] if-empty ;
ERROR: negative-random n ;
M: integer random ( integer -- integer' )
{
{ [ dup 0 = ] [ ] }
{ [ dup 0 < ] [ neg random-integer neg ] }
[ random-integer ]
} cond ;
dup sgn {
{ 0 [ ] }
{ -1 [ neg random-integer neg ] }
{ 1 [ random-integer ] }
} case ;
: delete-random ( seq -- elt )
[ length random-integer ] keep [ nth ] 2keep delete-nth ;