renamed Str to Obj

2021-10-06 08:05:21 +00:00
parent a1795920c7
commit c48f34d79b
6 changed files with 157 additions and 167 deletions
--- a/h2/lib2/h3-strings.adb
+++ b/h2/lib2/h3-strings.adb
@ -1,8 +1,8 @@
 package body H3.Strings is

-	procedure Append (Str: in out Elastic_String; V: in Character_Array) is
+	procedure Append (Obj: in out Elastic_String; V: in Character_Array) is
 	begin
-		P.Append (P.Elastic_Array(Str), V);
+		P.Append (P.Elastic_Array(Obj), V);
 	end;

 end H3.Strings;