--- a/compiler/PPCompiledParser.st Fri Jul 24 15:06:54 2015 +0100
+++ b/compiler/PPCompiledParser.st Mon Aug 17 12:13:16 2015 +0100
@@ -18,6 +18,10 @@
!PPCompiledParser class methodsFor:'as yet unclassified'!
+acceptsLoggingOfCompilation
+ ^ true
+!
+
addConstant: value as: id
self constants at: id ifPresent: [
((self constants at: id) = value) ifFalse: [self error: 'ooups']].
@@ -84,9 +88,10 @@
initialize
super initialize.
- self class constants keysAndValuesDo: [ :key :value |
+" self class constants keysAndValuesDo: [ :key :value |
self instVarNamed: key put: value.
].
+"
startSymbol := self class startSymbol.