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