diff --git a/basis/io/files/temp/temp.factor b/basis/io/files/temp/temp.factor index 83e8b6d281..b3540f719d 100644 --- a/basis/io/files/temp/temp.factor +++ b/basis/io/files/temp/temp.factor @@ -7,10 +7,6 @@ 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 ; @@ -24,10 +20,6 @@ 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 ; @@ -42,3 +34,11 @@ current-cache-directory [ { [ 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