From f0b84ce122f6241bdb1b0c28c64558d68b64a8aa Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Wed, 1 May 2019 17:41:47 -0400
Subject: [PATCH] Set immutable flag

---
 scheme/base.sld            | 2 ++
 scheme/process-context.sld | 1 +
 2 files changed, 3 insertions(+)

diff --git a/scheme/base.sld b/scheme/base.sld
index deaad569..cccb802f 100644
--- a/scheme/base.sld
+++ b/scheme/base.sld
@@ -1020,6 +1020,7 @@
                        &heap_grown);
           ((string_type *) s)->hdr.mark = ((gc_thread_data *)data)->gc_alloc_color;
           ((string_type *) s)->hdr.grayed = 0;
+          ((string_type *) s)->hdr.immutable = 0;
           ((string_type *) s)->tag = string_tag; 
           ((string_type *) s)->len = len;
           ((string_type *) s)->num_cp = num_cp;
@@ -1028,6 +1029,7 @@
           s = alloca(sizeof(string_type));
           ((string_type *)s)->hdr.mark = gc_color_red; 
           ((string_type *)s)->hdr.grayed = 0;
+          ((string_type *)s)->hdr.immutable = 0;
           ((string_type *)s)->tag = string_tag; 
           ((string_type *)s)->len = len;
           ((string_type *)s)->num_cp = num_cp;
diff --git a/scheme/process-context.sld b/scheme/process-context.sld
index e5cfa5c3..613e2541 100644
--- a/scheme/process-context.sld
+++ b/scheme/process-context.sld
@@ -28,6 +28,7 @@
           memcpy(ps, &s, sizeof(string_type));
           ((list)pl)->hdr.mark = gc_color_red;
           ((list)pl)->hdr.grayed = 0;
+          ((list)pl)->hdr.immutable = 0;
           ((list)pl)->tag = pair_tag;
           ((list)pl)->pair_car = ps;
           ((list)pl)->pair_cdr = lis;