kanaka/mal
1
1
Fork 0
mirror of https://github.com/kanaka/mal.git synced 2024-09-20 10:07: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)
return Types.Mal_Handle is
use Ada.Strings.Unbounded;
Res : Unbounded_String;
begin
return New_String_Mal_Type ('"' & Deref_List (Rest_Handle).Pr_Str & '"');
end Pr_Str;
@ -812,7 +810,6 @@ package body Core is
function Prn (Rest_Handle : Mal_Handle)
return Types.Mal_Handle is
use Ada.Strings.Unbounded;
begin
Ada.Text_IO.Put_Line (Deref_List (Rest_Handle).Pr_Str);
return New_Nil_Mal_Type;
@ -821,20 +818,16 @@ package body Core is
function Println (Rest_Handle : Mal_Handle)
return Types.Mal_Handle is
use Ada.Strings.Unbounded;
Res : String := Deref_List (Rest_Handle).Pr_Str (False);
begin
Ada.Text_IO.Put_Line (Res);
Ada.Text_IO.Put_Line (Deref_List (Rest_Handle).Pr_Str (False));
return New_Nil_Mal_Type;
end Println;
function Str (Rest_Handle : Mal_Handle)
return Types.Mal_Handle is
use Ada.Strings.Unbounded;
Res : String := Deref_List (Rest_Handle).Cat_Str (False);
begin
return New_String_Mal_Type ('"' & Res & '"');
return New_String_Mal_Type ('"' & Deref_List (Rest_Handle).Cat_Str (False) & '"');
end Str;