equal
deleted
inserted
replaced
14 ^ self |
14 ^ self |
15 ! ! |
15 ! ! |
16 |
16 |
17 !PPAndParser methodsFor:'parsing'! |
17 !PPAndParser methodsFor:'parsing'! |
18 |
18 |
19 parseOn: aStream |
19 parseOn: aPPContext |
20 | element position | |
20 | element memento | |
21 position := aStream position. |
21 memento := aPPContext remember. |
22 element := parser parseOn: aStream. |
22 element := parser parseOn: aPPContext. |
23 aStream position: position. |
23 aPPContext restore: memento. |
24 ^ element |
24 ^ element |
25 ! ! |
25 ! ! |
26 |
26 |
27 !PPAndParser class methodsFor:'documentation'! |
27 !PPAndParser class methodsFor:'documentation'! |
28 |
28 |