From 1580db1a53efd62fec5e28e64e45f77c4d010e63 Mon Sep 17 00:00:00 2001
From: Nicolas Boulenguez <nicolas.boulenguez@free.fr>
Date: Mon, 30 Aug 2021 22:43:54 +0200
Subject: [PATCH] cs: prevent defmacro from mutating functions

---
 impls/cs/step8_macros.cs | 1 +
 impls/cs/step9_try.cs    | 1 +
 impls/cs/stepA_mal.cs    | 1 +
 3 files changed, 3 insertions(+)

diff --git a/impls/cs/step8_macros.cs b/impls/cs/step8_macros.cs
index 9e111dd6..30e040be 100644
--- a/impls/cs/step8_macros.cs
+++ b/impls/cs/step8_macros.cs
@@ -162,6 +162,7 @@ namespace Mal {
                 a1 = ast[1];
                 a2 = ast[2];
                 res = EVAL(a2, env);
+                res = res.copy();
                 ((MalFunc)res).setMacro();
                 env.set(((MalSymbol)a1), res);
                 return res;
diff --git a/impls/cs/step9_try.cs b/impls/cs/step9_try.cs
index ba7b6dc9..31dab06c 100644
--- a/impls/cs/step9_try.cs
+++ b/impls/cs/step9_try.cs
@@ -162,6 +162,7 @@ namespace Mal {
                 a1 = ast[1];
                 a2 = ast[2];
                 res = EVAL(a2, env);
+                res = res.copy();
                 ((MalFunc)res).setMacro();
                 env.set(((MalSymbol)a1), res);
                 return res;
diff --git a/impls/cs/stepA_mal.cs b/impls/cs/stepA_mal.cs
index 56f3da09..cdc14901 100644
--- a/impls/cs/stepA_mal.cs
+++ b/impls/cs/stepA_mal.cs
@@ -162,6 +162,7 @@ namespace Mal {
                 a1 = ast[1];
                 a2 = ast[2];
                 res = EVAL(a2, env);
+                res = res.copy();
                 ((MalFunc)res).setMacro();
                 env.set(((MalSymbol)a1), res);
                 return res;