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

io.files.temp.macosx: Create the cache and temp directories every time. Fixes #1089.

db4
Doug Coleman 2014-07-03 23:41:20 -07:00
parent bc54927859
commit 138ec84642
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/io/files/temp/macosx/macosx.factor
View File

@ -1,7 +1,7 @@
! (c)2012 Joe Groff bsd license ! (c)2012 Joe Groff bsd license
USING: alien.c-types alien.syntax cocoa.plists cocoa.runtime USING: alien.c-types alien.syntax cocoa.plists cocoa.runtime
cocoa.types core-foundation.strings io.directories io.files cocoa.types core-foundation.strings io.directories io.files
io.files.temp io.pathnames kernel memoize sequences system ; io.files.temp io.pathnames kernel sequences system ;
IN: io.files.temp.macosx IN: io.files.temp.macosx
<PRIVATE <PRIVATE
@ -31,12 +31,12 @@ CONSTANT: factor-bundle-name "org.factorcode.Factor"
PRIVATE> PRIVATE>
MEMO: (temp-directory) ( -- path ) : (temp-directory) ( -- path )
NSTemporaryDirectory CF>string (make-factor-bundle-subdir) ; NSTemporaryDirectory CF>string (make-factor-bundle-subdir) ;
M: macosx temp-directory (temp-directory) ; M: macosx temp-directory (temp-directory) ;
MEMO: (cache-directory) ( -- path ) : (cache-directory) ( -- path )
NSCachesDirectory NSUserDomainMask 1 NSSearchPathForDirectoriesInDomains NSCachesDirectory NSUserDomainMask 1 NSSearchPathForDirectoriesInDomains
plist> (first-existing) (make-factor-bundle-subdir) ; plist> (first-existing) (make-factor-bundle-subdir) ;