equal
deleted
inserted
replaced
17 ! |
17 ! |
18 |
18 |
19 !PPCompiledParser class methodsFor:'as yet unclassified'! |
19 !PPCompiledParser class methodsFor:'as yet unclassified'! |
20 |
20 |
21 addConstant: value as: id |
21 addConstant: value as: id |
22 self constants at: id ifPresent: [ |
22 self constants at: id ifPresent: [:ignored | |
23 ((self constants at: id) = value) ifFalse: [self error: 'ooups']]. |
23 ((self constants at: id) = value) ifFalse: [self error: 'ooups']]. |
24 |
24 |
25 self constants at: id put: value. |
25 self constants at: id put: value. |
26 ! |
26 ! |
27 |
27 |