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

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 ;