changeset 431 | dd353f15b0ef |
parent 428 | b879012e366e |
child 438 | 20598d7ce9fa |
--- a/compiler/PPCompiledParser.st Sun Apr 19 22:25:38 2015 +0100 +++ b/compiler/PPCompiledParser.st Sun Apr 19 22:28:48 2015 +0100 @@ -19,7 +19,7 @@ !PPCompiledParser class methodsFor:'as yet unclassified'! addConstant: value as: id - self constants at: id ifPresent: [ + self constants at: id ifPresent: [:ignored | ((self constants at: id) = value) ifFalse: [self error: 'ooups']]. self constants at: id put: value.