--- a/compiler/extensions.st	Mon Aug 24 22:32:15 2015 +0100
+++ b/compiler/extensions.st	Mon Aug 24 23:42:53 2015 +0100
@@ -399,33 +399,39 @@
 !PPParser methodsFor:'*petitcompiler'!
 
 compile
-    ^ self compile: PPCArguments default
+    ^ self compile: PPCCompilationOptions default
+
+    "Modified: / 24-08-2015 / 23:39:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !PPParser methodsFor:'*petitcompiler'!
 
-compile: arguments
-    self assert: (arguments isKindOf: PPCArguments).
+compile: options
+    self assert: (options isKindOf: PPCCompilationOptions).
     
     ^ PPCConfiguration default
-        arguments: arguments;
+        options: options;
         compile: self
+
+    "Modified: / 24-08-2015 / 23:39:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !PPParser methodsFor:'*petitcompiler'!
 
-compile: arguments andParse: input
-    ^ (self compile: arguments) parse: input
+compile: options andParse: input
+    ^ (self compile: options) parse: input
 ! !
 
 !PPParser methodsFor:'*petitcompiler'!
 
 compileAs: name
-    | arguments |
-    arguments := PPCArguments default.
-    arguments name: name.
+    | options |
+    options := PPCCompilationOptions default.
+    options name: name.
     
-    ^ self compile: arguments
+    ^ self compile: options
+
+    "Modified: / 24-08-2015 / 23:39:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !PPParser methodsFor:'*petitcompiler'!
@@ -648,7 +654,7 @@
 map: aBlock
         ^ aBlock numArgs = self children size
                 ifTrue: [ PPMappedActionParser on: self block: aBlock ]
-                ifFalse: [ self error: aBlock numArgs asString , ' arguments expected.' ]
+                ifFalse: [ self error: aBlock numArgs asString , ' options expected.' ]
 
     "Modified: / 02-06-2015 / 17:16:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !