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

io.streams.random: slightly faster.

db4
John Benediktsson 2013-05-06 08:35:03 -07:00
parent a3cf0d70ba
commit 92e8bdaf1a
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/io/streams/random/random.factor
View File

@ -11,9 +11,9 @@ C: <random-stream> random-stream
M: random-stream stream-element-type drop +byte+ ;
M: random-stream stream-read-unsafe
drop [ dup random-bytes ] [ 0 swap copy ] bi* ;
drop [ dup random-bytes ] [ 0 swap copy-unsafe ] bi* ;
M: random-stream stream-read1 drop 256 random ;
M: random-stream stream-read1 drop 256 random-integer ;
M: random-stream stream-read-partial-unsafe stream-read-unsafe ;