equal
deleted
inserted
replaced
75 remember |
75 remember |
76 | sender selector | |
76 | sender selector | |
77 |
77 |
78 sender := thisContext sender. |
78 sender := thisContext sender. |
79 selector := (sender receiver isKindOf: PPCompiledParser) ifTrue: [ |
79 selector := (sender receiver isKindOf: PPCompiledParser) ifTrue: [ |
80 sender selector. |
80 sender selector. |
81 ] ifFalse: [ |
81 ] ifFalse: [ |
82 sender receiver class. |
82 sender receiver class. |
83 ]. |
83 ]. |
84 remembers add: selector. |
84 remembers add: selector. |
85 ^ super remember |
85 ^ super remember |
86 ! |
86 ! |
87 |
87 |
88 restore: whatever |
88 restore: whatever |
89 | selector sender | |
89 | selector sender | |
90 |
90 |
91 sender := thisContext sender. |
91 sender := thisContext sender. |
92 selector := (sender receiver isKindOf: PPCompiledParser) ifTrue: [ |
92 selector := (sender receiver isKindOf: PPCompiledParser) ifTrue: [ |
93 sender selector. |
93 sender selector. |
94 ] ifFalse: [ |
94 ] ifFalse: [ |
95 sender receiver class. |
95 sender receiver class. |
96 ]. |
96 ]. |
97 |
97 |
98 |
98 |
99 restores add: selector. |
99 restores add: selector. |
100 |
100 |