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