From 137342a80f12f082d999328ba8f36dc1c85ce472 Mon Sep 17 00:00:00 2001
From: Bob Burger <burgerrg@gmail.com>
Date: Mon, 14 May 2018 11:45:42 -0400
Subject: [PATCH] Windows install now sets HeapSearchPath in the registry

original commit: e15dffdaa6492a971b60e58e23d6d1f6262ea5da
---
 LOG                    | 2 ++
 wininstall/product.wxs | 8 ++++++++
 2 files changed, 10 insertions(+)

diff --git a/LOG b/LOG
index 911b21e6c7..f7f831ea71 100644
--- a/LOG
+++ b/LOG
@@ -933,3 +933,5 @@
     mats/Mf-t*, foreign.ms, foreign4.c
 - Don't install equates.h
     Mf-install.in, wininstall/*nt.wxs
+- Windows install now sets HeapSearchPath in the registry
+    wininstall/product.wxs
diff --git a/wininstall/product.wxs b/wininstall/product.wxs
index d3d4ab7ed0..822ba562e6 100755
--- a/wininstall/product.wxs
+++ b/wininstall/product.wxs
@@ -76,6 +76,14 @@
       <FeatureRef Id="VCRedist64"/>
     <?endif?>
 
+    <Feature Id="Registry" Level="1" Title="Chez Scheme Registry Entries">
+      <Component Id="cmpRegistry" Directory="APPLICATIONFOLDER" Guid="*">
+        <RegistryKey Root="HKLM" Key="SOFTWARE\Chez Scheme\csv$(var.Version)">
+          <RegistryValue Name="HeapSearchPath" Value="[D_boot]%m" Type="string" />
+        </RegistryKey>
+      </Component>
+    </Feature>
+
     <Icon Id="cs.ico" SourceFile="../c/cs.ico"/>
     <Property Id="ARPPRODUCTICON" Value="cs.ico"/>