--- a/PPFlattenParser.st Fri Oct 03 01:59:10 2014 +0100
+++ b/PPFlattenParser.st Fri Oct 03 02:33:08 2014 +0100
@@ -16,12 +16,12 @@
!PPFlattenParser methodsFor:'parsing'!
-parseOn: aStream
+parseOn: aPPContext
| start element |
- start := aStream position.
- element := parser parseOn: aStream.
+ start := aPPContext position.
+ element := parser parseOn: aPPContext.
element isPetitFailure ifTrue: [ ^ element ].
- ^ self on: aStream collection start: start + 1 stop: aStream position value: element
+ ^ self on: aPPContext stream collection start: start + 1 stop: aPPContext position value: element
! !
!PPFlattenParser methodsFor:'private'!