some code clean-up

2021-10-27 16:16:36 +00:00
parent 21c94d5ead
commit b7de031e72
8 changed files with 22 additions and 24 deletions
--- a/h2/lib2/h3-cc.adb
+++ b/h2/lib2/h3-cc.adb
@ -84,9 +84,9 @@ package body H3.CC is
 		return Item_Type'Val(UC.UTF_32_To_Upper_Case(Item_Type'Pos(V)));
 	end To_Upper;

-	function Is_Class (V: in Item_Type; Cls: in Class) return Boolean is
+	function Is_Class (V: in Item_Type; Class: in Item_Class) return Boolean is
 	begin
-		case Cls is
+		case Class is
 			when ALPHA => return Is_Alpha(V);
 			when ALNUM => return Is_Alnum(V);
 			when BLANK => return Is_Blank(V);