From 46c3f0def1ca86400df0ce7c82f2ed6ee8ef1a49 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sun, 5 Oct 2008 20:31:48 -0500
Subject: [PATCH] Remove unused error class

---
 basis/random/random.factor | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/basis/random/random.factor b/basis/random/random.factor
index 8a69b28171..b5f8ac48b8 100644
--- a/basis/random/random.factor
+++ b/basis/random/random.factor
@@ -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 ;