Merge pull request #6866 from MarcusDenker/simplify-ReIvarNeitherRead…

…NorWrittenRule

simplify-ReIvarNeitherReadNorWrittenRule

src/GeneralRules/ReIvarNeitherReadNorWrittenRule.class.st

@@ -14,21 +14,9 @@ ReIvarNeitherReadNorWrittenRule class >> checksClass [
 
 { #category : #enumerating }
 ReIvarNeitherReadNorWrittenRule >> check: aClass forCritiquesDo: aCriticBlock [
-	| methods |
-
-	methods := aClass withAllSubclasses flatCollect: #methods.
-
 	aClass slots
-		select: [ :slot |
-			| read written |
-			read := written := false.
-			methods noneSatisfy: [ :method |
-				read := read or: [ method readsSlot: slot ].
-				written := written or: [ method writesSlot: slot ].
-				read and: [ written ] ] ]
-		thenDo: [ :slot |
-			aCriticBlock cull:
-				(self critiqueFor: aClass about: slot) ]
+		select: [ :slot | slot isReferenced not ]
+		thenDo: [ :slot | aCriticBlock cull: (self critiqueFor: aClass about: slot) ]
 ]
 
 { #category : #enumerating }