--- a/compiler/extensions.st	Thu May 21 14:12:22 2015 +0100
+++ b/compiler/extensions.st	Fri Jul 24 15:06:54 2015 +0100
@@ -8,6 +8,12 @@
 
 !Object methodsFor:'*petitcompiler'!
 
+canHavePPCId
+    ^ false
+! !
+
+!Object methodsFor:'*petitcompiler'!
+
 isInlinedMethod
     ^ false
 ! !
@@ -93,6 +99,17 @@
     ^ aPetitCompiler compileChoice: self
 ! !
 
+!PPCompositeParser methodsFor:'*petitcompiler'!
+
+asCompilerNode
+    ^ PPCForwardNode new
+        name: self name;
+        child: parser;
+        yourself
+
+    "Modified: / 22-05-2015 / 21:54:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !PPContext methodsFor:'*petitcompiler'!
 
 asCompiledParserContext
@@ -189,7 +206,9 @@
             child: parser;
             yourself
     ].
-    ^ super asCompilerNode 
+    ^ super asCompilerNode
+
+    "Modified: / 22-05-2015 / 21:53:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !PPDelegateParser methodsFor:'*petitcompiler'!
@@ -612,10 +631,20 @@
     ^ aCollection
 ! !
 
+!PPSequenceParser methodsFor:'*petitcompiler'!
+
+map: aBlock
+        ^ aBlock numArgs = self children size
+                ifTrue: [ PPMappedActionParser on: self block: aBlock ]
+                ifFalse: [ self error: aBlock numArgs asString , ' arguments expected.' ]
+
+    "Modified: / 02-06-2015 / 17:16:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !PPSmalltalkGrammar methodsFor:'*petitcompiler'!
 
 comment
- 	^ $" asParser, $" asParser negate star, $" asParser.	
+ 		^ $" asParser, $" asParser negate star, $" asParser.	
 ! !
 
 !PPSmalltalkGrammar methodsFor:'*petitcompiler'!