Revert "use tilde paths in more places."

[factor.git] / extra / mason / config / config.factor

diff --git a/extra/mason/config/config.factor b/extra/mason/config/config.factor
index e7bb839f0c11cd6b081ede8b56afa89b15d6eec3..ba6c934bcdbfd3059d45c632631d4a4123454122 100644 (file)
--- a/extra/mason/config/config.factor
+++ b/extra/mason/config/config.factor
@@ -6,7 +6,9 @@ IN: mason.config
 ! (Optional) Location for build directories
 SYMBOL: builds-dir
 
-builds-dir [ "~/builds" ] initialize
+builds-dir get-global [
+    home "builds" append-path builds-dir set-global
+] unless
 
 ! Who sends build report e-mails.
 SYMBOL: builder-from
@@ -17,12 +19,12 @@ SYMBOL: builder-recipients
 ! (Optional) CPU architecture to build for.
 SYMBOL: target-cpu
 
-target-cpu [ cpu ] initialize
+target-cpu get-global [ cpu target-cpu set-global ] unless
 
 ! (Optional) OS to build for.
 SYMBOL: target-os
 
-target-os [ os ] initialize
+target-os get-global [ os target-os set-global ] unless
 
 ! (Optional) Architecture variant suffix.
 SYMBOL: target-variant