From f317b97221099653cc805dbda36457d19e70b77c Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Thu, 27 Mar 2008 06:30:59 -0500
Subject: [PATCH] stack effect typos

---
 extra/random/random.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/extra/random/random.factor b/extra/random/random.factor
index 56590adb91..e62ab71b92 100755
--- a/extra/random/random.factor
+++ b/extra/random/random.factor
@@ -10,7 +10,7 @@ SYMBOL: random-generator
 
 GENERIC: seed-random ( tuple seed -- )
 GENERIC: random-32* ( tuple -- r )
-GENERIC: random-bytes* ( n tuple -- bytes )
+GENERIC: random-bytes* ( n tuple -- byte-array )
 
 M: object random-bytes* ( n tuple -- byte-array )
     swap [ drop random-32* ] with map >c-uint-array ;
@@ -23,7 +23,7 @@ M: f random-bytes* ( n obj -- * ) no-random-number-generator ;
 
 M: f random-32* ( obj -- * ) no-random-number-generator ;
 
-: random-bytes ( n -- r )
+: random-bytes ( n -- byte-array )
     [
         dup 4 rem zero? [ 1+ ] unless
         random-generator get random-bytes*