kanaka/mal
1
1
Fork 0
mirror of https://github.com/kanaka/mal.git synced 2024-11-10 12:47:45 +03:00
Code Issues Projects Releases Wiki Activity

Ada: build in knowledge about true and false into reader

Browse Source
This commit is contained in:
Chris M Moore 2016-03-19 00:05:38 +00:00
parent caa4fab9f4
commit 9128585993
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ada/reader.adb
View File

@ -343,8 +343,18 @@ package body Reader is
when Sym_Tok =>
return New_Symbol_Mal_Type
(Slice (Saved_Line, Tok.Start_Char, Tok.Stop_Char));
-- Mal interpreter is required to know about true, false and nil.
declare
S : String := Slice (Saved_Line, Tok.Start_Char, Tok.Stop_Char);
begin
if S = "true" then
return New_Bool_Mal_Type (True);
elsif S = "false" then
return New_Bool_Mal_Type (False);
else
return New_Symbol_Mal_Type (S);
end if;
end;
end case;