--- 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'!