--- a/compiler/tests/extras/PPLL1ExpressionGrammar.st	Thu May 21 14:12:22 2015 +0100
+++ b/compiler/tests/extras/PPLL1ExpressionGrammar.st	Fri Jul 24 15:06:54 2015 +0100
@@ -14,12 +14,14 @@
 
 add
    ^ prod, addPrime optional
- 	map: [ :_prod :_addPrime |
-		_addPrime isNil 
-			ifTrue: [ _prod  ]
-			ifFalse: [ Array with: _prod withAll: _addPrime ]
-		
-	]
+		map: [ :_prod :_addPrime |
+				_addPrime isNil 
+						ifTrue: [ _prod  ]
+						ifFalse: [ (Array with: _prod) , _addPrime ]
+				
+		]
+
+	"Modified (format): / 26-05-2015 / 07:23:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 addPrime
@@ -28,12 +30,14 @@
 
 mul
    ^ prim, mulPrime optional
- 	map: [ :_prim :_mulPrime |
-		_mulPrime isNil 
-			ifTrue: [ _prim  ]
-			ifFalse: [ Array with: _prim withAll: _mulPrime ]
-		
-	]
+		map: [ :_prim :_mulPrime |
+				_mulPrime isNil 
+						ifTrue: [ _prim  ]
+						ifFalse: [ (Array with: _prim) , _mulPrime ]
+				
+		]
+
+	"Modified (format): / 26-05-2015 / 07:23:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 mulPrime
@@ -62,11 +66,13 @@
 
 term
     ^ prod, termPrime optional
- 	map: [ :_prod :_termPrime |
+        map: [ :_prod :_termPrime |
         _termPrime isNil 
             ifTrue: [ _prod  ]
-            ifFalse: [ Array with: _prod withAll: _termPrime ]
-    ]	
+            ifFalse: [ (Array with: _prod) , _termPrime ]
+    ]
+
+    "Modified: / 26-05-2015 / 07:24:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 termPrime