--- a/tests/PPLambdaParser.st Mon Apr 13 14:19:55 2015 +0100
+++ b/tests/PPLambdaParser.st Mon Apr 13 22:00:44 2015 +0100
@@ -1,5 +1,7 @@
"{ Package: 'stx:goodies/petitparser/tests' }"
+"{ NameSpace: Smalltalk }"
+
PPCompositeParser subclass:#PPLambdaParser
instanceVariableNames:'expression abstraction application variable'
classVariableNames:''
@@ -43,11 +45,13 @@
!PPLambdaParser methodsFor:'productions'!
abstraction
- ^ $\ asParser trim , variable , $. asParser trim , expression ==> [ :node | Array with: node second with: node fourth ]
+ ^ $\ asParser trim , variable , $. asParser trim , expression
+ ==> [ :node | Array with: (node at: 2) with: (node at: 4) ]
!
application
- ^ $( asParser trim , expression , expression , $) asParser trim ==> [ :node | Array with: node second with: node third ]
+ ^ $( asParser trim , expression , expression , $) asParser trim
+ ==> [ :node | Array with: (node at: 2) with: (node at: 3) ]
!
expression