From 02df2682616babda536d09af848543d44eefe67f Mon Sep 17 00:00:00 2001 From: Joe Groff Date: Wed, 16 Nov 2011 10:03:00 -0800 Subject: [PATCH] random: don't assume random-bytes is a byte-vector It's not anymore. --- basis/random/random.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/random/random.factor b/basis/random/random.factor index cba194b399..2a1f90c0ff 100644 --- a/basis/random/random.factor +++ b/basis/random/random.factor @@ -96,8 +96,8 @@ ERROR: too-many-samples seq n ; secure-random-generator get swap with-random ; inline : uniform-random-float ( min max -- n ) - 4 random-bytes underlying>> uint deref >float - 4 random-bytes underlying>> uint deref >float + 4 random-bytes uint deref >float + 4 random-bytes uint deref >float 2.0 32 ^ * + [ over - 2.0 -64 ^ * ] dip * + ; inline