kanaka/mal
1
1
Fork 0
mirror of https://github.com/kanaka/mal.git synced 2024-10-05 18:08:55 +03:00
Code Issues Projects Releases Wiki Activity

vhdl: defmacro! doesn't modify existing functions

Browse Source
This commit is contained in:
Dov Murik 2020-09-30 20:28:12 +03:00
parent b9dd70c442
commit fdd4e53f54
3 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
impls/vhdl/step8_macros.vhdl
View File

@ -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;

3
impls/vhdl/step9_try.vhdl
View File

@ -331,11 +331,12 @@ architecture test of step9_try 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;

3
impls/vhdl/stepA_mal.vhdl
View File

@ -331,11 +331,12 @@ architecture test of stepA_mal 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;