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

ada: prevent defmacro from mutating functions

Browse Source
This commit is contained in:
Nicolas Boulenguez 2021-08-13 08:37:44 +02:00 committed by Joel Martin
parent b204bb1f02
commit de68c38029
3 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
impls/ada/step8_macros.adb
View File

@ -50,7 +50,10 @@ procedure Step8_Macros is
Fn_Body := Car (Deref_List (Cdr (Args)).all);
Res := Eval (Fn_Body, Env);
Lambda_P := Deref_Lambda (Res);
Lambda_P.Set_Is_Macro (True);
Res := New_Lambda_Mal_Type (Params => Lambda_P.all.Get_Params,
Expr => Lambda_P.all.Get_Expr,
Env => Lambda_P.all.Get_Env);
Deref_Lambda (Res).Set_Is_Macro (True);
Envs.Set (Env, Deref_Sym (Name).Get_Sym, Res);
return Res;
end Def_Macro;

5
impls/ada/step9_try.adb
View File

@ -50,7 +50,10 @@ procedure Step9_Try is
Fn_Body := Car (Deref_List (Cdr (Args)).all);
Res := Eval (Fn_Body, Env);
Lambda_P := Deref_Lambda (Res);
Lambda_P.Set_Is_Macro (True);
Res := New_Lambda_Mal_Type (Params => Lambda_P.all.Get_Params,
Expr => Lambda_P.all.Get_Expr,
Env => Lambda_P.all.Get_Env);
Deref_Lambda (Res).Set_Is_Macro (True);
Envs.Set (Env, Deref_Sym (Name).Get_Sym, Res);
return Res;
end Def_Macro;

5
impls/ada/stepa_mal.adb
View File

@ -50,7 +50,10 @@ procedure StepA_Mal is
Fn_Body := Car (Deref_List (Cdr (Args)).all);
Res := Eval (Fn_Body, Env);
Lambda_P := Deref_Lambda (Res);
Lambda_P.Set_Is_Macro (True);
Res := New_Lambda_Mal_Type (Params => Lambda_P.all.Get_Params,
Expr => Lambda_P.all.Get_Expr,
Env => Lambda_P.all.Get_Env);
Deref_Lambda (Res).Set_Is_Macro (True);
Envs.Set (Env, Deref_Sym (Name).Get_Sym, Res);
return Res;
end Def_Macro;