--- a/compiler/PPCMessagePredicateNode.st	Tue Apr 21 17:20:11 2015 +0100
+++ b/compiler/PPCMessagePredicateNode.st	Thu Apr 30 23:43:14 2015 +0200
@@ -11,14 +11,6 @@
 
 !PPCMessagePredicateNode methodsFor:'accessing'!
 
-asInlined
-	^ PPCInlineMessagePredicateNode new
-		message: message;
-		predicate: predicate;
-		name: name;
-		yourself
-!
-
 message
 	
 	^ message
@@ -29,14 +21,12 @@
 	message := anObject
 ! !
 
-!PPCMessagePredicateNode methodsFor:'as yet unclassified'!
+!PPCMessagePredicateNode methodsFor:'analysis'!
 
-bodyOfPredicate: compiler
-	compiler addOnLine: '(context peek ', self message, ')'.
-	compiler indent.
-	compiler add: 'ifFalse: [ self error: ''predicate not found'' ]'.
-	compiler add: 'ifTrue: [ context next ].'.
-	compiler dedent.
+firstCharSet
+	^ PPCharSetPredicate on: [:e | e perform: message ]
+
+    "Modified: / 23-04-2015 / 22:13:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !PPCMessagePredicateNode methodsFor:'comparing'!
@@ -50,3 +40,9 @@
 	^ super hash bitXor: message hash
 ! !
 
+!PPCMessagePredicateNode methodsFor:'visiting'!
+
+accept: visitor
+	^ visitor visitMessagePredicateNode: self
+! !
+