stack effect typos

db4
Doug Coleman 2008-03-27 06:30:59 -05:00
parent a561f18ff1
commit f317b97221
1 changed files with 2 additions and 2 deletions

View File

@ -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*