1
1
mirror of https://github.com/kanaka/mal.git synced 2024-09-19 17:47:53 +03:00

ada.2: allow macro argument for apply core function

This commit is contained in:
Nicolas Boulenguez 2022-02-18 15:00:35 +01:00 committed by Joel Martin
parent 253cdf1ae5
commit a734ce082b

View File

@ -113,10 +113,10 @@ package body Core is
return F.Builtin.all (A);
when Kind_Builtin_With_Meta =>
return F.Builtin_With_Meta.all.Builtin.all (A);
when Kind_Fn =>
when Kind_Fn | Kind_Macro =>
return F.Fn.all.Apply (A);
when others =>
Err.Raise_With ("parameter 1 must be a function");
Err.Raise_With ("parameter 1 must be a function or macro");
end case;
end;
end Apply;