equal
deleted
inserted
replaced
14 ^ aCollection copyFrom: aStartInteger to: aStopInteger |
14 ^ aCollection copyFrom: aStartInteger to: aStopInteger |
15 ! ! |
15 ! ! |
16 |
16 |
17 !PPFlattenParser methodsFor:'parsing'! |
17 !PPFlattenParser methodsFor:'parsing'! |
18 |
18 |
19 parseOn: aStream |
19 parseOn: aPPContext |
20 | start element | |
20 | start element | |
21 start := aStream position. |
21 start := aPPContext position. |
22 element := parser parseOn: aStream. |
22 element := parser parseOn: aPPContext. |
23 element isPetitFailure ifTrue: [ ^ element ]. |
23 element isPetitFailure ifTrue: [ ^ element ]. |
24 ^ self on: aStream collection start: start + 1 stop: aStream position value: element |
24 ^ self on: aPPContext stream collection start: start + 1 stop: aPPContext position value: element |
25 ! ! |
25 ! ! |
26 |
26 |
27 !PPFlattenParser methodsFor:'private'! |
27 !PPFlattenParser methodsFor:'private'! |
28 |
28 |
29 on: aCollection start: aStartInteger stop: aStopInteger value: anObject |
29 on: aCollection start: aStartInteger stop: aStopInteger value: anObject |