--- a/compiler/extensions.st	Mon Sep 07 08:20:46 2015 +0100
+++ b/compiler/extensions.st	Mon Sep 07 11:53:38 2015 +0100
@@ -399,55 +399,28 @@
 !PPParser methodsFor:'*petitcompiler'!
 
 compile
-    ^ self compile: PPCCompilationOptions default
-
-    "Modified: / 24-08-2015 / 23:39:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
-
-!PPParser methodsFor:'*petitcompiler'!
+    ^ self compileWithOptions: PPCCompilationOptions new
 
-compile:options 
-    | compiler |
-
-    self assert:(options isKindOf:PPCCompilationOptions).
-    compiler := PPCCompiler default.
-    compiler context options:options.
-    ^ compiler compile:self
-
-    "Modified: / 28-08-2015 / 14:25:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 07-09-2015 / 10:54:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !PPParser methodsFor:'*petitcompiler'!
 
-compile: options andParse: input
-    ^ (self compile: options) parse: input
-! !
-
-!PPParser methodsFor:'*petitcompiler'!
+compileWithOptions: options
+    "Compile receiver with given options. Return 
+     an *instance* of the compiler parser which is 
+     ready to use (repeatedly). 
 
-compileAs: name
-    | options |
-    options := PPCCompilationOptions default.
-    options name: name.
-    
-    ^ self compile: options
-
-    "Modified: / 24-08-2015 / 23:39:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
-
-!PPParser methodsFor:'*petitcompiler'!
-
-compileTokenizing
+     `options` may be either an instance of PPCCompilationOptions
+     or an array specifying options like #( tokenizing: true debug: false )
+    " 
     | compiler |
 
-    compiler := PPCCompiler tokenizing.
-    ^ self compileUsingCompiler: compiler
-! !
+    compiler := PPCCompiler new.
+    compiler options: options.
+    ^compiler compile: self
 
-!PPParser methodsFor:'*petitcompiler'!
-
-compileUsingCompiler:aPPCCompiler 
-    ^ aPPCCompiler compile:self
+    "Created: / 07-09-2015 / 10:52:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !PPParser methodsFor:'*petitcompiler'!