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