From a8f1680bcdaa0029a6cc8f532835d32fab8375d7 Mon Sep 17 00:00:00 2001
From: Doug Coleman <erg@secrets.local>
Date: Wed, 12 Nov 2008 13:28:17 -0600
Subject: [PATCH] slightly faster

---
 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 0a21d003fa..242a9b8f31 100755
--- a/basis/random/random.factor
+++ b/basis/random/random.factor
@@ -16,7 +16,7 @@ GENERIC: random-bytes* ( n tuple -- byte-array )
 <PRIVATE
 
 : adjust-random ( n m -- n' )
-    3 mask 0 = [ 1+ ] unless ; inline
+    3 mask zero? [ 1+ ] unless ; inline
 
 PRIVATE>
 
@@ -39,7 +39,7 @@ M: f random-32* ( obj -- * ) no-random-number-generator ;
 : random-bytes ( n -- byte-array )
     [
         dup adjust-random random-generator get random-bytes*
-    ] keep head >byte-array ;
+    ] keep head-slice >byte-array ;
 
 <PRIVATE