From 5215e3af5f927308f9726e18c8c3b237e1a46f7a Mon Sep 17 00:00:00 2001
From: Alex Chapman <chapman.alex@gmail.com>
Date: Fri, 15 Feb 2008 17:11:28 +1100
Subject: [PATCH] io.files.tmp: update touch to use dispose instead of
 stream-close

---
 extra/io/files/tmp/tmp.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/io/files/tmp/tmp.factor b/extra/io/files/tmp/tmp.factor
index da1deec9a7..a859cfdc91 100644
--- a/extra/io/files/tmp/tmp.factor
+++ b/extra/io/files/tmp/tmp.factor
@@ -7,7 +7,7 @@ IN: io.files.tmp
     "tmp" resource-path dup directory? [ dup make-directory ] unless ;
 
 : touch ( filename -- )
-    <file-writer> stream-close ;
+    <file-writer> dispose ;
 
 : tmpfile ( extension -- filename )
     16 random-alphanumeric-string over append