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:
parent
253cdf1ae5
commit
a734ce082b
@ -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;
|
||||
|
Loading…
Reference in New Issue
Block a user