     { [ 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

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

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