From 3545ce52c3c9abe2b6767554c9363030f9b387c6 Mon Sep 17 00:00:00 2001
From: Marcus Denker <marcus.denker@inria.fr>
Date: Wed, 29 Jul 2020 18:27:23 +0200
Subject: [PATCH] isFaulty implementations should use anySatisfy: with a block,
 not a symbol

---
 src/AST-Core/RBArrayNode.class.st        | 2 +-
 src/AST-Core/RBBlockNode.class.st        | 2 +-
 src/AST-Core/RBCascadeNode.class.st      | 2 +-
 src/AST-Core/RBLiteralArrayNode.class.st | 2 +-
 src/AST-Core/RBMessageNode.class.st      | 2 +-
 src/AST-Core/RBMethodNode.class.st       | 4 ++--
 src/AST-Core/RBPragmaNode.class.st       | 2 +-
 src/AST-Core/RBSequenceNode.class.st     | 2 +-
 8 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/src/AST-Core/RBArrayNode.class.st b/src/AST-Core/RBArrayNode.class.st
index 4aa0c75f9af..10f57e74d15 100644
--- a/src/AST-Core/RBArrayNode.class.st
+++ b/src/AST-Core/RBArrayNode.class.st
@@ -154,7 +154,7 @@ RBArrayNode >> isDynamicArray [
 
 { #category : #testing }
 RBArrayNode >> isFaulty [
-	^self statements anySatisfy: #isFaulty
+	^self statements anySatisfy: [:each | each isFaulty]
 ]
 
 { #category : #testing }
diff --git a/src/AST-Core/RBBlockNode.class.st b/src/AST-Core/RBBlockNode.class.st
index e10cd80206f..e39772281ae 100644
--- a/src/AST-Core/RBBlockNode.class.st
+++ b/src/AST-Core/RBBlockNode.class.st
@@ -228,7 +228,7 @@ RBBlockNode >> isBlock [
 
 { #category : #testing }
 RBBlockNode >> isFaulty [
-	^(self arguments anySatisfy:  #isFaulty ) or: [ self body isFaulty]
+	^(self arguments anySatisfy: [:each | each isFaulty] ) or: [ self body isFaulty]
 ]
 
 { #category : #testing }
diff --git a/src/AST-Core/RBCascadeNode.class.st b/src/AST-Core/RBCascadeNode.class.st
index 0dc3e733321..20d19243799 100644
--- a/src/AST-Core/RBCascadeNode.class.st
+++ b/src/AST-Core/RBCascadeNode.class.st
@@ -93,7 +93,7 @@ RBCascadeNode >> isCascade [
 
 { #category : #testing }
 RBCascadeNode >> isFaulty [
-	^self messages anySatisfy: #isFaulty
+	^self messages anySatisfy: [:each | each isFaulty]
 ]
 
 { #category : #accessing }
diff --git a/src/AST-Core/RBLiteralArrayNode.class.st b/src/AST-Core/RBLiteralArrayNode.class.st
index ab4eee25626..7aded426533 100644
--- a/src/AST-Core/RBLiteralArrayNode.class.st
+++ b/src/AST-Core/RBLiteralArrayNode.class.st
@@ -90,7 +90,7 @@ RBLiteralArrayNode >> equalTo: anObject withMapping: aDictionary [
 
 { #category : #testing }
 RBLiteralArrayNode >> isFaulty [
-	^self contents anySatisfy: #isFaulty
+	^self contents anySatisfy: [:each | each isFaulty]
 ]
 
 { #category : #testing }
diff --git a/src/AST-Core/RBMessageNode.class.st b/src/AST-Core/RBMessageNode.class.st
index 76180579c0d..d7f45302f63 100644
--- a/src/AST-Core/RBMessageNode.class.st
+++ b/src/AST-Core/RBMessageNode.class.st
@@ -160,7 +160,7 @@ RBMessageNode >> isContainmentReplacement: aNode [
 
 { #category : #testing }
 RBMessageNode >> isFaulty [
-	^self receiver isFaulty or: [self arguments anySatisfy: #isFaulty]
+	^self receiver isFaulty or: [self arguments anySatisfy: [:each | each isFaulty]]
 ]
 
 { #category : #testing }
diff --git a/src/AST-Core/RBMethodNode.class.st b/src/AST-Core/RBMethodNode.class.st
index 93dadffab62..1a0d2a867a7 100644
--- a/src/AST-Core/RBMethodNode.class.st
+++ b/src/AST-Core/RBMethodNode.class.st
@@ -377,8 +377,8 @@ RBMethodNode >> initialize [
 
 { #category : #testing }
 RBMethodNode >> isFaulty [
-	(self arguments anySatisfy: #isFaulty) ifTrue:[ ^true].
-	(self pragmas anySatisfy: #isFaulty) ifTrue:[ ^true].
+	(self arguments anySatisfy: [:each | each isFaulty]) ifTrue:[ ^true].
+	(self pragmas anySatisfy: [:each | each isFaulty]) ifTrue:[ ^true].
 	^self body isFaulty
 ]
 
diff --git a/src/AST-Core/RBPragmaNode.class.st b/src/AST-Core/RBPragmaNode.class.st
index d6ad18c0cd0..de95529ddbf 100644
--- a/src/AST-Core/RBPragmaNode.class.st
+++ b/src/AST-Core/RBPragmaNode.class.st
@@ -127,7 +127,7 @@ RBPragmaNode >> isBinary [
 
 { #category : #testing }
 RBPragmaNode >> isFaulty [
-	^self arguments anySatisfy: #isFaulty
+	^self arguments anySatisfy: [:each | each isFaulty]
 ]
 
 { #category : #testing }
diff --git a/src/AST-Core/RBSequenceNode.class.st b/src/AST-Core/RBSequenceNode.class.st
index 92829dfc0b2..6b80a58a34d 100644
--- a/src/AST-Core/RBSequenceNode.class.st
+++ b/src/AST-Core/RBSequenceNode.class.st
@@ -304,7 +304,7 @@ RBSequenceNode >> initialize [
 
 { #category : #testing }
 RBSequenceNode >> isFaulty [
-	^self statements anySatisfy: #isFaulty
+	^self statements anySatisfy: [:each | each isFaulty]
 ]
 
 { #category : #testing }