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

2012-10-25 22:00:02 -07:00 · 2012-10-25 22:00:02 -07:00 · bba382bd5c
parent 7b50fd3601
commit bba382bd5c
1 changed files with 2 additions and 5 deletions
--- a/extra/io/streams/random/random.factor
+++ b/extra/io/streams/random/random.factor
@ -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 ;