From bba382bd5cda61d1bc5064b0442db23c6bf79179 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 25 Oct 2012 22:00:02 -0700
Subject: [PATCH] io.streams.random: stream-copy disposes, so we don't need to.

---
 extra/io/streams/random/random.factor | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/extra/io/streams/random/random.factor b/extra/io/streams/random/random.factor
index 3ab2a482cb..dae22b88d9 100644
--- 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 ;