io.files.tmp: update touch to use dispose instead of stream-close
parent
113b895874
commit
5215e3af5f
|
@ -7,7 +7,7 @@ IN: io.files.tmp
|
||||||
"tmp" resource-path dup directory? [ dup make-directory ] unless ;
|
"tmp" resource-path dup directory? [ dup make-directory ] unless ;
|
||||||
|
|
||||||
: touch ( filename -- )
|
: touch ( filename -- )
|
||||||
<file-writer> stream-close ;
|
<file-writer> dispose ;
|
||||||
|
|
||||||
: tmpfile ( extension -- filename )
|
: tmpfile ( extension -- filename )
|
||||||
16 random-alphanumeric-string over append
|
16 random-alphanumeric-string over append
|
||||||
|
|
Loading…
Reference in New Issue