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: [ :ignored | |
22 self constants at: id ifPresent: [ |
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 |
|
27 "Modified: / 21-11-2014 / 12:32:52 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
28 ! |
26 ! |
29 |
27 |
30 addParser: aPPParser as: id |
28 addParser: aPPParser as: id |
31 |
29 |
32 "(self parsers includesKey: id) ifTrue: [self error: 'Ooups' ]." |
30 "(self parsers includesKey: id) ifTrue: [self error: 'Ooups' ]." |