Fix mason following PPC changes; target-os and target-cpu are no longer strings.

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

diff --git a/extra/mason/child/child.factor b/extra/mason/child/child.factor
index 66e6eb3722da0d6c9632e762b9bcf551f0a06dc5..3a7e88ac9b3746ce0ae6b3fbb27064e01660db0f 100644 (file)
--- 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 ;