compiler/extensions.st
changeset 537 fb212e14d1f4
parent 534 a949c4fe44df
child 538 16e8536f5cfb
--- a/compiler/extensions.st	Mon Sep 07 08:03:02 2015 +0100
+++ b/compiler/extensions.st	Mon Sep 07 08:20:46 2015 +0100
@@ -406,14 +406,13 @@
 
 !PPParser methodsFor:'*petitcompiler'!
 
-compile: options
-    | configuration |
+compile:options 
+    | compiler |
 
-    self assert: (options isKindOf: PPCCompilationOptions).
-
-    configuration := PPCConfiguration default.
-    configuration context options: options.
-    ^ configuration compile: self
+    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>"
 ! !
@@ -439,15 +438,16 @@
 !PPParser methodsFor:'*petitcompiler'!
 
 compileTokenizing
-    | configuration |
-    configuration := PPCConfiguration tokenizing.
-    ^ self compileWithConfiguration: configuration
+    | compiler |
+
+    compiler := PPCCompiler tokenizing.
+    ^ self compileUsingCompiler: compiler
 ! !
 
 !PPParser methodsFor:'*petitcompiler'!
 
-compileWithConfiguration: configuration
-    ^ configuration compile: self
+compileUsingCompiler:aPPCCompiler 
+    ^ aPPCCompiler compile:self
 ! !
 
 !PPParser methodsFor:'*petitcompiler'!