steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Clean up temp-directory

db4
Slava Pestov 2008-03-27 02:12:15 -05:00
parent 3a9839a168
commit f1ee3dcb32
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
core/io/files/files.factor
View File

@ -265,12 +265,10 @@ DEFER: copy-tree-into
?resource-path exists? ; ?resource-path exists? ;
: temp-directory ( -- path ) : temp-directory ( -- path )
"temp" resource-path "temp" resource-path dup make-directories ;
dup exists? not
[ dup make-directory ]
when ;
: temp-file ( name -- path ) temp-directory prepend-path ; : temp-file ( name -- path )
temp-directory prepend-path ;
M: object normalize-pathname ( path -- path' ) M: object normalize-pathname ( path -- path' )
current-directory get prepend-path ; current-directory get prepend-path ;