From f1ee3dcb32e61b47f92fe5de911f4a24ea4bc7d8 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Thu, 27 Mar 2008 02:12:15 -0500 Subject: [PATCH] Clean up temp-directory --- core/io/files/files.factor | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/core/io/files/files.factor b/core/io/files/files.factor index 78f1612cb8..7cdf41674d 100755 --- a/core/io/files/files.factor +++ b/core/io/files/files.factor @@ -265,12 +265,10 @@ DEFER: copy-tree-into ?resource-path exists? ; : temp-directory ( -- path ) - "temp" resource-path - dup exists? not - [ dup make-directory ] - when ; + "temp" resource-path dup make-directories ; -: temp-file ( name -- path ) temp-directory prepend-path ; +: temp-file ( name -- path ) + temp-directory prepend-path ; M: object normalize-pathname ( path -- path' ) current-directory get prepend-path ;