steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/random/random.factor
View File

@ -10,7 +10,7 @@ SYMBOL: random-generator
GENERIC: seed-random ( tuple seed -- ) GENERIC: seed-random ( tuple seed -- )
GENERIC: random-32* ( tuple -- r ) 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 ) M: object random-bytes* ( n tuple -- byte-array )
swap [ drop random-32* ] with map >c-uint-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 ; M: f random-32* ( obj -- * ) no-random-number-generator ;
: random-bytes ( n -- r ) : random-bytes ( n -- byte-array )
[ [
dup 4 rem zero? [ 1+ ] unless dup 4 rem zero? [ 1+ ] unless
random-generator get random-bytes* random-generator get random-bytes*