kanaka/mal
1
1
Fork 0
mirror of https://github.com/kanaka/mal.git synced 2024-11-14 00:09:01 +03:00
Code Issues Projects Releases Wiki Activity

Ada: keywords aren't evaluated

Browse Source
This commit is contained in:
Chris M Moore 2015-04-03 14:48:10 +01:00
parent fbad73cbcd
commit 05a9650278
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ada/evaluation.adb
View File

@ -57,7 +57,12 @@ package body Evaluation is
declare
Sym : Mal_String := Deref_Atom (Ast).Get_Atom;
begin
return Envs.Get (Sym);
-- if keyword...
if Sym(1) = ':' then
return Ast;
else
return Envs.Get (Sym);
end if;
exception
when Envs.Not_Found =>
return New_Error_Mal_Type ("'" & Sym & "' not found");