vhdl: defmacro! doesn't modify existing functions

[jackhill/mal.git] / impls / vhdl / step8_macros.vhdl

diff --git a/impls/vhdl/step8_macros.vhdl b/impls/vhdl/step8_macros.vhdl
index 9cc740e..8b799ad 100644 (file)
--- a/impls/vhdl/step8_macros.vhdl
+++ b/impls/vhdl/step8_macros.vhdl
@@ -291,11 +291,12 @@ architecture test of step8_macros is
           next; -- TCO
 
         elsif a0.string_val.all = "defmacro!" then
-          EVAL(ast.seq_val(2), env, val, sub_err);
+          EVAL(ast.seq_val(2), env, fn, sub_err);
           if sub_err /= null then
             err := sub_err;
             return;
           end if;
+          new_fn(fn.func_val.f_body, fn.func_val.f_args, fn.func_val.f_env, val);
           val.func_val.f_is_macro := true;
           env_set(env, ast.seq_val(1), val);
           result := val;