 HOOK: default-temp-directory os ( -- path )
 
 SYMBOL: current-temp-directory
-
-current-temp-directory [
-    default-temp-directory dup make-directories
-] initialize
 
 : temp-directory ( -- path )
     current-temp-directory get ;

HOOK: default-cache-directory os ( -- path )

SYMBOL: current-cache-directory

current-cache-directory [
    default-cache-directory dup make-directories
] initialize

: cache-directory ( -- path )
    current-cache-directory get ;

    { [ os macosx? ] [ "io.files.temp.macosx" ] }
    { [ os unix? ] [ "io.files.temp.unix" ] }
} cond require

\ current-temp-directory [
    default-temp-directory dup make-directories
] initialize

\ current-cache-directory [
    default-cache-directory dup make-directories
] initialize
