X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=basis%2Fcombinators%2Frandom%2Frandom.factor;h=ba057b055ef698eb31f0fcbfec5b7b4feb4ca101;hp=9363ede491f55c521b8f12a550bef2f03dd04420;hb=96d543056491bfd71e65a093f4add5a6a5bb780d;hpb=6206ba5583b7616c59741963dbf01d8c9c88e223 diff --git a/basis/combinators/random/random.factor b/basis/combinators/random/random.factor index 9363ede491..ba057b055e 100644 --- a/basis/combinators/random/random.factor +++ b/basis/combinators/random/random.factor @@ -1,8 +1,7 @@ ! Copyright (C) 2010 Jon Harper. ! See http://factorcode.org/license.txt for BSD license. USING: arrays assocs combinators combinators.short-circuit -kernel macros math math.order quotations random sequences -summary ; +kernel math math.order quotations random sequences summary ; IN: combinators.random : ifp ( p true false -- ) [ random-unit > ] 2dip if ; inline