kanaka/mal
1
1
Fork 0
mirror of https://github.com/kanaka/mal.git synced 2024-08-17 09:40:21 +03:00
Code Issues Projects Releases Wiki Activity

d: prevent defmacro from mutating functions

Browse Source
This commit is contained in:
Nicolas Boulenguez 2021-08-30 23:38:46 +02:00 committed by Joel Martin
parent e3c376ebd5
commit 13a84ba0aa
3 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
impls/d/step8_macros.d
View File

@ -165,6 +165,7 @@ MalType EVAL(MalType ast, Env env)
case "defmacro!":
auto a1 = verify_cast!MalSymbol(aste[1]);
auto mac = verify_cast!MalFunc(EVAL(aste[2], env));
mac = new MalFunc(mac.arg_names, mac.func_body, mac.def_env);
mac.is_macro = true;
return env.set(a1, mac);

1
impls/d/step9_try.d
View File

@ -165,6 +165,7 @@ MalType EVAL(MalType ast, Env env)
case "defmacro!":
auto a1 = verify_cast!MalSymbol(aste[1]);
auto mac = verify_cast!MalFunc(EVAL(aste[2], env));
mac = new MalFunc(mac.arg_names, mac.func_body, mac.def_env);
mac.is_macro = true;
return env.set(a1, mac);

1
impls/d/stepA_mal.d
View File

@ -166,6 +166,7 @@ MalType EVAL(MalType ast, Env env)
case "defmacro!":
auto a1 = verify_cast!MalSymbol(aste[1]);
auto mac = verify_cast!MalFunc(EVAL(aste[2], env));
mac = new MalFunc(mac.arg_names, mac.func_body, mac.def_env);
mac.is_macro = true;
return env.set(a1, mac);