Remove many uses of <int> and *int etc

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

diff --git a/basis/random/random.factor b/basis/random/random.factor
index ba5d9c7ca316f8fd951373607317241d7afacaca..ae7c0ad1e38c7bc26873047408f4b17ca49d294c 100644 (file)
--- a/basis/random/random.factor
+++ b/basis/random/random.factor
@@ -90,8 +90,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 >float
-    4 random-bytes underlying>> *uint >float
+    4 random-bytes underlying>> uint deref >float
+    4 random-bytes underlying>> uint deref >float
     2.0 32 ^ * +
     [ over - 2.0 -64 ^ * ] dip
     * + ; inline