scala: prevent defmacro! from mutating its argument

asarhaddon · Oct 10, 2024 · 5064a79 · 5064a79
1 parent 17193d3
commit 5064a79
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/impls/scala/step8_macros.scala b/impls/scala/step8_macros.scala
@@ -91,7 +91,7 @@ object step8_macros {
         ast = quasiquote(a1)  // continue loop (TCO)
       }
       case Symbol("defmacro!") :: a1 :: a2 :: Nil => {
-        val f = EVAL(a2, env)
+        val f = EVAL(a2, env).clone()
         f.asInstanceOf[MalFunction].ismacro = true
         return env.set(a1.asInstanceOf[Symbol], f)
       }

diff --git a/impls/scala/step9_try.scala b/impls/scala/step9_try.scala
@@ -91,7 +91,7 @@ object step9_try {
         ast = quasiquote(a1)  // continue loop (TCO)
       }
       case Symbol("defmacro!") :: a1 :: a2 :: Nil => {
-        val f = EVAL(a2, env)
+        val f = EVAL(a2, env).clone()
         f.asInstanceOf[MalFunction].ismacro = true
         return env.set(a1.asInstanceOf[Symbol], f)
       }

diff --git a/impls/scala/stepA_mal.scala b/impls/scala/stepA_mal.scala
@@ -91,7 +91,7 @@ object stepA_mal {
         ast = quasiquote(a1)  // continue loop (TCO)
       }
       case Symbol("defmacro!") :: a1 :: a2 :: Nil => {
-        val f = EVAL(a2, env)
+        val f = EVAL(a2, env).clone()
         f.asInstanceOf[MalFunction].ismacro = true
         return env.set(a1.asInstanceOf[Symbol], f)
       }