diff --git a/ada/evaluation.adb b/ada/evaluation.adb index a41bfd9f..fcd5a5eb 100644 --- a/ada/evaluation.adb +++ b/ada/evaluation.adb @@ -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");