From 7b62d199241b9ac737aaff18025c43e5ce6e8a80 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Mon, 15 Dec 2008 02:02:22 -0600
Subject: [PATCH] Oops

---
 basis/io/files/temp/temp-docs.factor |  9 +++++++++
 basis/io/files/temp/temp.factor      | 10 ++++++++++
 2 files changed, 19 insertions(+)
 create mode 100644 basis/io/files/temp/temp-docs.factor
 create mode 100644 basis/io/files/temp/temp.factor

diff --git a/basis/io/files/temp/temp-docs.factor b/basis/io/files/temp/temp-docs.factor
new file mode 100644
index 0000000000..e9f49283de
--- /dev/null
+++ b/basis/io/files/temp/temp-docs.factor
@@ -0,0 +1,9 @@
+USING: help.markup help.syntax ;
+IN: io.files.temp
+
+ARTICLE: "io.files.temp" "Temporary files"
+"Pathnames relative to Factor's temporary files directory:"
+{ $subsection temp-directory }
+{ $subsection temp-file } ;
+
+ABOUT: "io.files.temp"
diff --git a/basis/io/files/temp/temp.factor b/basis/io/files/temp/temp.factor
new file mode 100644
index 0000000000..7ace21932a
--- /dev/null
+++ b/basis/io/files/temp/temp.factor
@@ -0,0 +1,10 @@
+! Copyright (C) 2008 Slava Pestov, Doug Coleman.
+! See http://factorcode.org/license.txt for BSD license.
+USING: kernel io.pathnames io.directories ;
+IN: io.files.temp
+
+: temp-directory ( -- path )
+    "temp" resource-path dup make-directories ;
+
+: temp-file ( name -- path )
+    temp-directory prepend-path ;
\ No newline at end of file