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: remove some unecessary use commands/variables

Browse Source
This commit is contained in:
Chris M Moore 2016-03-20 22:19:26 +00:00
parent adc03a1a5f
commit d1967ba511
1 changed files with 2 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ada/core.adb
View File

@ -803,8 +803,6 @@ package body Core is
function Pr_Str (Rest_Handle : Mal_Handle) function Pr_Str (Rest_Handle : Mal_Handle)
return Types.Mal_Handle is return Types.Mal_Handle is
use Ada.Strings.Unbounded;
Res : Unbounded_String;
begin begin
return New_String_Mal_Type ('"' & Deref_List (Rest_Handle).Pr_Str & '"'); return New_String_Mal_Type ('"' & Deref_List (Rest_Handle).Pr_Str & '"');
end Pr_Str; end Pr_Str;
@ -812,7 +810,6 @@ package body Core is
function Prn (Rest_Handle : Mal_Handle) function Prn (Rest_Handle : Mal_Handle)
return Types.Mal_Handle is return Types.Mal_Handle is
use Ada.Strings.Unbounded;
begin begin
Ada.Text_IO.Put_Line (Deref_List (Rest_Handle).Pr_Str); Ada.Text_IO.Put_Line (Deref_List (Rest_Handle).Pr_Str);
return New_Nil_Mal_Type; return New_Nil_Mal_Type;
@ -821,20 +818,16 @@ package body Core is
function Println (Rest_Handle : Mal_Handle) function Println (Rest_Handle : Mal_Handle)
return Types.Mal_Handle is return Types.Mal_Handle is
use Ada.Strings.Unbounded;
Res : String := Deref_List (Rest_Handle).Pr_Str (False);
begin begin
Ada.Text_IO.Put_Line (Res); Ada.Text_IO.Put_Line (Deref_List (Rest_Handle).Pr_Str (False));
return New_Nil_Mal_Type; return New_Nil_Mal_Type;
end Println; end Println;
function Str (Rest_Handle : Mal_Handle) function Str (Rest_Handle : Mal_Handle)
return Types.Mal_Handle is return Types.Mal_Handle is
use Ada.Strings.Unbounded;
Res : String := Deref_List (Rest_Handle).Cat_Str (False);
begin begin
return New_String_Mal_Type ('"' & Res & '"'); return New_String_Mal_Type ('"' & Deref_List (Rest_Handle).Cat_Str (False) & '"');
end Str; end Str;