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

Merge branch 'master' of git://factorcode.org/git/factor

db4
Slava Pestov 2008-02-22 16:19:05 -06:00
parent 2d94e8e756 aae3913b59
commit 7eee8e7017
2 changed files with 18 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -155,10 +155,10 @@ M: pathname <=> [ pathname-string ] compare ;
: with-file-appender ( path quot -- ) : with-file-appender ( path quot -- )
>r <file-appender> r> with-stream ; inline >r <file-appender> r> with-stream ; inline
: temp-dir ( -- path ) : temp-directory ( -- path )
"temp" resource-path "temp" resource-path
dup exists? not dup exists? not
[ dup make-directory ] [ dup make-directory ]
when ; when ;
: temp-file ( name -- path ) temp-dir swap path+ ; : temp-file ( name -- path ) temp-directory swap path+ ;