From 4e88005bf4b362d81b578789fd619524fef27e38 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sun, 5 Oct 2008 15:14:18 -0500
Subject: [PATCH] remove random intervals for now

---
 basis/math/intervals/intervals.factor | 34 ---------------------------
 1 file changed, 34 deletions(-)

diff --git a/basis/math/intervals/intervals.factor b/basis/math/intervals/intervals.factor
index f359cfb7c4..38d67aa043 100644
--- a/basis/math/intervals/intervals.factor
+++ b/basis/math/intervals/intervals.factor
@@ -397,37 +397,3 @@ SYMBOL: incomparable
         [ to>> first2 [ 1- ] unless ]
         bi [a,b]
     ] unless ;
-
-<PRIVATE
-
-: open-left? ( interval -- ? ) from>> second not ;
-
-: open-right? ( interval -- ? ) to>> second not ;
-
-: integral-interval? ( interval -- ? )
-    [ from>> ] [ to>> ] bi [ first integer? ] both? ;
-
-PRIVATE>
-
-ERROR: empty-random-interval ;
-
-: random-interval-integer ( interval -- n )
-    [ [ to>> first ] [ open-right? [ 1- ] when ] bi ]
-    [
-        [ from>> first ]
-        [ open-left? [ 1+ ] when ] bi
-        tuck - 1+ random +
-    ] bi ;
-
-: random-interval-float ( interval -- x )
-    [ [ from>> first ] [ open-left? [ epsilon + ] when ] bi ]
-    [ [ to>> first ] [ open-right? [ epsilon - ] when ] bi ] bi
-    epsilon <range> random [ empty-random-interval ] unless* ;
-
-M: interval random ( interval -- x )
-    dup empty-interval = [ empty-random-interval ] when
-    dup integral-interval? [
-        random-interval-integer
-    ] [
-        random-interval-float
-    ] if ;