From d3ce5c7deb4cbaf981ba7827f4a8c004e1607d60 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 2 Aug 2012 14:06:08 -0700
Subject: [PATCH] combinators.random: some style cleanup.

---
 basis/combinators/random/random.factor | 21 ++++++++++++---------
 1 file changed, 12 insertions(+), 9 deletions(-)

diff --git a/basis/combinators/random/random.factor b/basis/combinators/random/random.factor
index 167fc844f3..5a66b878cf 100644
--- a/basis/combinators/random/random.factor
+++ b/basis/combinators/random/random.factor
@@ -6,7 +6,9 @@ summary ;
 IN: combinators.random
 
 : ifp ( p true false -- ) [ random-unit > ] 2dip if ; inline
+
 : whenp ( p true -- ) [ ] ifp ; inline
+
 : unlessp ( p false -- ) [ [ ] ] dip ifp ; inline
 
 <PRIVATE
@@ -20,7 +22,7 @@ ERROR: bad-probabilities assoc ;
 
 M: bad-probabilities summary
     drop "The probabilities do not satisfy the rules stated in the docs." ;
-    
+
 : good-probabilities? ( assoc -- ? )
     dup last pair? [
         keys { [ sum 1 number= ] [ [ 0 1 between? ] all? ] } 1&&
@@ -34,21 +36,22 @@ M: bad-probabilities summary
         [ dup pair? [ prepare-pair ] [ with-drop ] if ] map
         cond>quot
     ] [ bad-probabilities ] if ;
-    
+
 MACRO: (casep) ( assoc -- ) (casep>quot) ;
 
 : casep>quot ( assoc -- quot )
     (casep>quot) [ random-unit ] prepend ;
-    
+
 : (conditional-probabilities) ( seq i -- p )
-    [ dup 0 > [ head [ 1 swap - ] [ * ] map-reduce ] [ 2drop 1 ] if ] [ swap nth ] 2bi * ;
-    
+    [ dup 0 > [ head [ 1 swap - ] [ * ] map-reduce ] [ 2drop 1 ] if ]
+    [ swap nth ] 2bi * ;
+
 : conditional-probabilities ( seq -- seq' )
     dup length iota [ (conditional-probabilities) ] with map ;
-    
+
 : (direct>conditional) ( assoc -- assoc' )
-        [ keys conditional-probabilities ] [ values ] bi zip ;
-        
+    [ keys conditional-probabilities ] [ values ] bi zip ;
+
 : direct>conditional ( assoc -- assoc' )
     dup last pair? [ (direct>conditional) ] [
         unclip-last [ (direct>conditional) ] [ suffix ] bi*
@@ -56,7 +59,7 @@ MACRO: (casep) ( assoc -- ) (casep>quot) ;
 
 : call-random>casep ( seq -- assoc )
     [ length recip ] keep [ 2array ] with map ;
-    
+
 PRIVATE>
 
 MACRO: casep ( assoc -- ) casep>quot ;