Use +new-group+ in all processes launched in mason.

extra/mason/child/child.factor

@@ -28,6 +28,7 @@ IN: mason.child
             make-cmd >>command
             "../compile-log" >>stdout
             +stdout+ >>stderr
+            +new-group+ >>group
         try-process
     ] with-directory ;
 
@@ -50,6 +51,7 @@ IN: mason.child
             "../boot-log" >>stdout
             +stdout+ >>stderr
             1 hours >>timeout
+            +new-group+ >>group
         try-process
     ] with-directory ;
 
@@ -63,6 +65,7 @@ IN: mason.child
             "../test-log" >>stdout
             +stdout+ >>stderr
             4 hours >>timeout
+            +new-group+ >>group
         try-process
     ] with-directory ;
 

extra/mason/common/common.factor

@@ -21,7 +21,10 @@ SYMBOL: current-git-id
 : short-running-process ( command -- )
     #! Give network operations and shell commands at most
     #! 30 minutes to complete, to catch hangs.
-    >process 30 minutes >>timeout try-output-process ;
+    >process
+        30 minutes >>timeout
+        +new-group+ >>group
+    try-output-process ;
 
 : retry ( n quot -- )
     [ iota ] dip
@@ -30,7 +33,10 @@ SYMBOL: current-git-id
 : upload-process ( process -- )
     #! Give network operations and shell commands at most
     #! 30 minutes to complete, to catch hangs.
-    >process upload-timeout get >>timeout try-output-process ;
+    >process
+        upload-timeout get >>timeout
+        +new-group+ >>group
+    try-output-process ;
 
 :: upload-safely ( local username host remote -- )
     remote ".incomplete" append :> temp