Make memberToSelector:for:arguments: more efficient

src/TruffleSqueak-Core.package/Interop.class/class/memberToSelector.for.arguments..st

@@ -1,12 +1,7 @@
 dispatch
 memberToSelector: aMember for: anObject arguments: arguments
-	| selectorName  currentClass |
-	selectorName := (aMember asString copyReplaceAll: '_' with: ':'), (
-		arguments ifEmpty: [ '' ] ifNotEmpty: [ ':' ]).
-	currentClass := anObject class.
-	[ currentClass isNil ] whileFalse: [
-		currentClass selectors
-			detect: [ :ea | ea = selectorName ]
-			ifFound: [ :s | ^ s ].
-		currentClass := currentClass superclass ].
-	^ nil
+	| selector |
+	selector := ((aMember asString copyReplaceAll: '_' with: ':'), (
+		arguments ifEmpty: [ '' ] ifNotEmpty: [ ':' ])) asSymbol.
+	^ (anObject class canUnderstand: selector)
+		ifTrue: [ selector ] ifFalse: [ nil ]

src/TruffleSqueak-Core.package/Interop.class/methodProperties.json

@@ -106,7 +106,7 @@
 		"isTime:" : "fn 3/5/2021 14:27",
 		"isTimeZone:" : "fn 3/5/2021 14:27",
 		"memberToSelector:for:" : "fn 3/9/2021 12:49",
-		"memberToSelector:for:arguments:" : "fn 3/9/2021 12:49",
+		"memberToSelector:for:arguments:" : "fn 8/19/2021 14:49",
 		"readArrayElement:index:" : "fn 3/5/2021 14:52",
 		"readBufferByte:index:" : "fn 6/26/2021 14:35",
 		"readBufferDouble:index:" : "fn 6/26/2021 14:35",