--- a/compiler/PPCAbstractPredicateNode.st	Mon Nov 24 00:09:23 2014 +0000
+++ b/compiler/PPCAbstractPredicateNode.st	Wed Apr 15 11:28:09 2015 +0100
@@ -1,5 +1,7 @@
 "{ Package: 'stx:goodies/petitparser/compiler' }"
 
+"{ NameSpace: Smalltalk }"
+
 PPCNode subclass:#PPCAbstractPredicateNode
 	instanceVariableNames:'predicate'
 	classVariableNames:''
@@ -7,14 +9,6 @@
 	category:'PetitCompiler-Nodes'
 !
 
-!PPCAbstractPredicateNode class methodsFor:'instance creation'!
-
-new
-    "return an initialized instance"
-
-    ^ self basicNew initialize.
-! !
-
 !PPCAbstractPredicateNode methodsFor:'accessing'!
 
 predicate
@@ -37,10 +31,6 @@
 	^ false
 !
 
-firstCharParser
-	^ PPPredicateObjectParser on: predicate message: 'predicate expected'.
-!
-
 firstCharSet
 	^ PPCharSetPredicate on: predicate
 ! !
@@ -83,14 +73,5 @@
 
 asInlined
 	^ super asInlined
-!
-
-optimize: params status: changeStatus
-	| retval |
-	retval := self.
-	retval := retval rewrite: params status: changeStatus.
-	retval := retval inline: params status: changeStatus.
-	
-	^ retval
 ! !