From 981477a7ff33cf544417d47adc2f42a85b578ff2 Mon Sep 17 00:00:00 2001
From: Erik Charlebois <erikcharlebois@gmail.com>
Date: Fri, 29 Jul 2011 01:57:14 -0400
Subject: [PATCH] Fix mason following PPC changes; target-os and target-cpu are
 no longer strings.

---
 extra/mason/child/child-tests.factor           | 17 +++++++++--------
 extra/mason/child/child.factor                 |  8 ++++----
 extra/mason/email/email-tests.factor           |  7 ++++---
 extra/mason/platform/platform.factor           |  3 ++-
 extra/mason/release/branch/branch-tests.factor | 11 ++++++-----
 5 files changed, 25 insertions(+), 21 deletions(-)

diff --git a/extra/mason/child/child-tests.factor b/extra/mason/child/child-tests.factor
index 140288585f..34f9c10103 100644
--- a/extra/mason/child/child-tests.factor
+++ b/extra/mason/child/child-tests.factor
@@ -1,26 +1,27 @@
 IN: mason.child.tests
-USING: mason.child mason.config tools.test namespaces io kernel sequences ;
+USING: mason.child mason.config tools.test namespaces io kernel
+sequences system ;
 
 [ { "nmake" "/f" "nmakefile" "x86-32" } ] [
     [
-        "winnt" target-os set
-        "x86.32" target-cpu set
+        winnt target-os set
+        x86.32 target-cpu set
         make-cmd
     ] with-scope
 ] unit-test
 
 [ { "make" "macosx-x86-32" } ] [
     [
-        "macosx" target-os set
-        "x86.32" target-cpu set
+        macosx target-os set
+        x86.32 target-cpu set
         make-cmd
     ] with-scope
 ] unit-test
 
 [ { "./factor.com" "-i=boot.winnt-x86.32.image" "-no-user-init" } ] [
     [
-        "winnt" target-os set
-        "x86.32" target-cpu set
+        winnt target-os set
+        x86.32 target-cpu set
         boot-cmd
     ] with-scope
 ] unit-test
@@ -43,4 +44,4 @@ USING: mason.child mason.config tools.test namespaces io kernel sequences ;
         { [ ] [ ] }
         [ "B" ]
     } recover-cond
-] unit-test
\ No newline at end of file
+] unit-test
diff --git a/extra/mason/child/child.factor b/extra/mason/child/child.factor
index 66e6eb3722..3a7e88ac9b 100644
--- a/extra/mason/child/child.factor
+++ b/extra/mason/child/child.factor
@@ -9,14 +9,14 @@ IN: mason.child
 
 : nmake-cmd ( -- args )
     { "nmake" "/f" "nmakefile" }
-    target-cpu get "." split "-" join suffix ;
+    target-cpu get name>> "." split "-" join suffix ;
 
 : gnu-make-cmd ( -- args )
     gnu-make platform 2array ;
 
 : make-cmd ( -- args )
     {
-        { [ target-os get "winnt" = ] [ nmake-cmd ] }
+        { [ target-os get winnt = ] [ nmake-cmd ] }
         [ gnu-make-cmd ]
     } cond ;
 
@@ -30,7 +30,7 @@ IN: mason.child
     ] with-directory ;
 
 : factor-vm ( -- string )
-    target-os get "winnt" = "./factor.com" "./factor" ? ;
+    target-os get winnt = "./factor.com" "./factor" ? ;
 
 : boot-cmd ( -- cmd )
     [
@@ -79,4 +79,4 @@ MACRO: recover-cond ( alist -- )
         { [ notify-boot boot ] [ boot-failed ] }
         { [ notify-test test ] [ test-failed ] }
         [ success ]
-    } recover-cond ;
\ No newline at end of file
+    } recover-cond ;
diff --git a/extra/mason/email/email-tests.factor b/extra/mason/email/email-tests.factor
index 77f651feb9..5e4f93de52 100644
--- a/extra/mason/email/email-tests.factor
+++ b/extra/mason/email/email-tests.factor
@@ -1,10 +1,11 @@
 IN: mason.email.tests
-USING: mason.email mason.common mason.config namespaces tools.test ;
+USING: mason.email mason.common mason.config namespaces
+tools.test system ;
 
 [ "mason on linux-x86-64: 12345 -- error" ] [
     [
-        "linux" target-os set
-        "x86.64" target-cpu set
+        linux target-os set
+        x86.64 target-cpu set
         "12345" current-git-id set
         status-error report-subject
     ] with-scope
diff --git a/extra/mason/platform/platform.factor b/extra/mason/platform/platform.factor
index 2a33c5240b..92d4ace972 100644
--- a/extra/mason/platform/platform.factor
+++ b/extra/mason/platform/platform.factor
@@ -5,13 +5,14 @@ mason.config bootstrap.image assocs ;
 IN: mason.platform
 
 : (platform) ( os cpu -- string )
+    [ name>> ] bi@
     { { CHAR: . CHAR: - } } substitute "-" glue ;
 
 : platform ( -- string )
     target-os get target-cpu get (platform) ;
 
 : gnu-make ( -- string )
-    target-os get { "freebsd" "openbsd" "netbsd" } member? "gmake" "make" ? ;
+    target-os get { freebsd openbsd netbsd } member? "gmake" "make" ? ;
 
 : boot-image-arch ( -- string )
     target-os get target-cpu get arch ;
diff --git a/extra/mason/release/branch/branch-tests.factor b/extra/mason/release/branch/branch-tests.factor
index 8327ae985d..47ebe3b404 100644
--- a/extra/mason/release/branch/branch-tests.factor
+++ b/extra/mason/release/branch/branch-tests.factor
@@ -1,13 +1,14 @@
 IN: mason.release.branch.tests
-USING: mason.release.branch mason.config tools.test namespaces ;
+USING: mason.release.branch mason.config tools.test namespaces
+system ;
 
 [ { "git" "push" "-f" "joe@blah.com:/my/git" "master:clean-linux-x86-32" } ] [
     [
         "joe" branch-username set
         "blah.com" branch-host set
         "/my/git" branch-directory set
-        "linux" target-os set
-        "x86.32" target-cpu set
+        linux target-os set
+        x86.32 target-cpu set
         push-to-clean-branch-cmd
     ] with-scope
 ] unit-test
@@ -18,8 +19,8 @@ USING: mason.release.branch mason.config tools.test namespaces ;
         "joe" image-username set
         "blah.com" image-host set
         "/stuff/clean" image-directory set
-        "netbsd" target-os set
-        "x86.64" target-cpu set
+        netbsd target-os set
+        x86.64 target-cpu set
         upload-clean-image-cmd
     ] with-scope
 ] unit-test
-- 
2.34.1