basis: ERROR: changes.

[factor.git] / basis / combinators / random / random.factor

diff --git a/basis/combinators/random/random.factor b/basis/combinators/random/random.factor
index 661ed3f08dbd0d8e992bc2f1bbb55cf802fb5bbb..5422a9c67940104ee5baa718dabda31f4e8ffd8e 100644 (file)
--- a/basis/combinators/random/random.factor
+++ b/basis/combinators/random/random.factor
@@ -35,7 +35,7 @@ M: bad-probabilities summary
     dup good-probabilities? [
         [ dup pair? [ prepare-pair ] [ with-drop ] if ] map
         cond>quot
-    ] [ bad-probabilities ] if ;
+    ] [ throw-bad-probabilities ] if ;
 
 MACRO: (casep) ( assoc -- quot ) (casep>quot) ;