From 41ca620271b0fdd5db6ae9e6322e65adc64ef6a9 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Thu, 21 Feb 2008 22:08:03 -0600
Subject: [PATCH] io.files: temp-file

---
 core/io/files/files.factor | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/core/io/files/files.factor b/core/io/files/files.factor
index 1824a47867..108ace4393 100755
--- a/core/io/files/files.factor
+++ b/core/io/files/files.factor
@@ -154,3 +154,11 @@ M: pathname <=> [ pathname-string ] compare ;
 
 : with-file-appender ( path quot -- )
     >r <file-appender> r> with-stream ; inline
+
+: temp-dir ( -- path )
+    "temp" resource-path
+    dup exists? not
+      [ dup make-directory ]
+    when ;
+
+: temp-file ( name -- path ) temp-dir swap path+ ;
\ No newline at end of file