Improve algorithm of numberOfCategoryOfElement: to improve the perfor…

…mances

src/Kernel/Categorizer.class.st

@@ -398,21 +398,16 @@ Categorizer >> listAtProtocolNamed: categoryName [
 ]
 
 { #category : #private }
-Categorizer >> numberOfCategoryOfElement: element [ 
+Categorizer >> numberOfCategoryOfElement: element [
 	"Answer the index of the category with which the argument, element, is 
 	associated."
 
-	| categoryIndex elementIndex |
-	categoryIndex := 1.
-	elementIndex := 0.
-	[(elementIndex := elementIndex + 1) <= elementArray size]
-		whileTrue: 
-			["point to correct category"
-			[elementIndex > (categoryStops at: categoryIndex)]
-				whileTrue: [categoryIndex := categoryIndex + 1].
-			"see if this is element"
-			element = (elementArray at: elementIndex) ifTrue: [^categoryIndex]].
-	^0
+	| indexOfElementInElementArray |
+	indexOfElementInElementArray := elementArray
+		                                identityIndexOf: element asSymbol
+		                                ifAbsent: [ ^ 0 ].
+	^ categoryStops findFirst: [ :stopIndex | 
+		  stopIndex >= indexOfElementInElementArray ]
 ]
 
 { #category : #'queries - protocol' }