--- a/compiler/PPCPluggableConfiguration.st	Thu Apr 30 23:43:14 2015 +0200
+++ b/compiler/PPCPluggableConfiguration.st	Sun May 10 06:28:36 2015 +0100
@@ -2,8 +2,8 @@
 
 "{ NameSpace: Smalltalk }"
 
-PPCConfiguration subclass:#PPCPluggableConfiguration
-	instanceVariableNames:'block'
+Object subclass:#PPCPluggableConfiguration
+	instanceVariableNames:'block base'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'PetitCompiler-Core'
@@ -12,18 +12,41 @@
 !PPCPluggableConfiguration class methodsFor:'as yet unclassified'!
 
 on: aBlock
-	^ self new
-		block: aBlock;
-		yourself
+    ^ self on: aBlock base: PPCConfiguration default
+!
+
+on: aBlock base: aPPCCOnfiguration
+    ^ self new
+        block: aBlock;
+        base: aPPCCOnfiguration;
+        yourself
 ! !
 
 !PPCPluggableConfiguration methodsFor:'as yet unclassified'!
 
+arguments: args
+    ^ base arguments: args
+!
+
+base: aPPCConfiguration
+    base := aPPCConfiguration
+!
+
 block: aBlock
-	block := aBlock
+    block := aBlock
+!
+
+compile: whatever
+    base input: whatever.
+    block value: base.
+    ^ base ir
+!
+
+input: whatever
+    ^ base input: whatever
 !
 
 invokePhases
-	^ block value: self
+    ^ block value: base
 ! !