io.streams.random: stream-copy disposes, so we don't need to.

db4
John Benediktsson 2012-10-25 22:00:02 -07:00
parent 7b50fd3601
commit bba382bd5c
1 changed files with 2 additions and 5 deletions

View File

@ -22,8 +22,5 @@ M: random-stream dispose drop ;
INSTANCE: random-stream input-stream
: random-file ( n path -- )
[
[ <random-stream> swap limit-stream ]
[ binary <file-writer> ] bi*
[ &dispose ] bi@ stream-copy
] with-destructors ;
[ <random-stream> swap limit-stream ]
[ binary <file-writer> ] bi* stream-copy ;