diff -r 2a65c972b937 -r a7f5e6de19d2 PPExpressionParser.st --- a/PPExpressionParser.st Mon Apr 13 14:19:55 2015 +0100 +++ b/PPExpressionParser.st Mon Apr 13 22:00:44 2015 +0100 @@ -1,5 +1,7 @@ "{ Package: 'stx:goodies/petitparser' }" +"{ NameSpace: Smalltalk }" + PPDelegateParser subclass:#PPExpressionParser instanceVariableNames:'operators' classVariableNames:'' @@ -19,7 +21,7 @@ ! build: aParser prefix: aChoiceParser - ^ aChoiceParser star , aParser map: [ :ops :term | ops reversed inject: term into: [ :result :operator | operator first value: operator second value: result ] ] + ^ aChoiceParser star , aParser map: [ :ops :term | ops reverse inject: term into: [ :result :operator | operator first value: operator second value: result ] ] ! build: aParser right: aChoiceParser @@ -113,3 +115,4 @@ version_SVN ^ '§Id: PPExpressionParser.st 2 2010-12-17 18:44:23Z vranyj1 §' ! ! +