steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
basis/random/random.factor
View File

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