From cff2fde9f9f52d0d21a281ce4e3be92cb5067ec8 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Fri, 10 Apr 2020 21:31:56 -0700
Subject: [PATCH] mason.child: Up the codeheap size on Windows mason tests.

---
 extra/mason/child/child.factor | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/extra/mason/child/child.factor b/extra/mason/child/child.factor
index 1d0574cf98..5df20adf41 100644
--- a/extra/mason/child/child.factor
+++ b/extra/mason/child/child.factor
@@ -64,7 +64,12 @@ M: windows factor-path "./factor.com" ;
         try-process
     ] with-directory ;
 
-: mason-child-test-cmd ( -- cmd ) mason-child-vm "-run=mason.test" 2array ;
+: mason-child-test-cmd ( -- cmd )
+    [
+        mason-child-vm ,
+        os windows? [ "-codeheap=200" , ] when
+        "-run=mason.test" ,
+    ] { } make ;
 
 : test-mason-child ( -- )
     "factor" [