diff -r ebfddc82b8bb -r 439c4057517f compiler/PPCArguments.st
--- a/compiler/PPCArguments.st	Mon Aug 24 22:32:15 2015 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,171 +0,0 @@
-"{ Package: 'stx:goodies/petitparser/compiler' }"
-
-"{ NameSpace: Smalltalk }"
-
-Object subclass:#PPCArguments
-	instanceVariableNames:'arguments'
-	classVariableNames:''
-	poolDictionaries:''
-	category:'PetitCompiler-Core'
-!
-
-!PPCArguments class methodsFor:'as yet unclassified'!
-
-default
-    ^ self new
-!
-
-new
-    ^ self basicNew 
-        initialize;
-        yourself
-! !
-
-!PPCArguments methodsFor:'accessing'!
-
-cacheFirstFollow
-    ^ self at: #cacheFirstFollow ifAbsent: true
-!
-
-cacheFirstFollow: value
-    self set: #cacheFirstFollow to: value.
-!
-
-codeGenerator
-    self error: 'deprecated?'.
-    ^ self at: #codeGenerator ifAbsent: PPCCodeGenerator
-!
-
-codeGenerator: value
-    self set: #codeGenerator to: value.
-!
-
-debug
-    ^ self at: #debug ifAbsent: true
-!
-
-debug: value
-    self set: #debug to: value.
-!
-
-detectTokens
-    ^ self at: #detectTokens ifAbsent: true
-!
-
-detectTokens: value
-    self set: #detectTokens to: value.
-!
-
-generate
-    ^ self at: #generate ifAbsent: true
-!
-
-generate: value
-    ^ self set: #generate to: value
-!
-
-guards
-    ^ self at: #guards ifAbsent: true
-!
-
-guards: value
-    self set: #guards to: value.
-!
-
-inline
-    ^ self at: #inline ifAbsent: true
-!
-
-inline: value
-    self set: #inline to: value.
-!
-
-merge
-    ^ self at: #merge ifAbsent: true
-!
-
-merge: value
-    self set: #merge to: value.
-!
-
-parserName
-    ^ self at: #parserName ifAbsent: #PPGeneratedParser 
-!
-
-parserName: value
-    self set: #parserName to: value.
-!
-
-parserSuperclass
-    ^ self at: #parserSuperclass ifAbsent: PPTokenizingCompiledParser
-!
-
-parserSuperclass: value
-    self set: #parserSuperclass to: value.
-!
-
-profile
-    ^ self at: #profile ifAbsent: false
-!
-
-profile: value
-    self set: #profile to: value.
-!
-
-recognizingComponents
-    ^ self at: #recognizingComponents ifAbsent: true
-!
-
-recognizingComponents: value
-    self set: #recognizingComponents to: value.
-!
-
-scannerName
-    ^ self at: #scannerName ifAbsent: #PPGeneratedScanner
-!
-
-scannerName: value
-    self set: #scannerName to: value.
-!
-
-scannerSuperclass
-    ^ self at: #scannerSuperclass ifAbsent: PPCDistinctScanner
-!
-
-scannerSuperclass: value
-    self set: #scannerSuperclass to: value.
-!
-
-specialize
-    ^ self at: #specialize ifAbsent: true
-!
-
-specialize: value
-    self set: #specialize to: value.
-!
-
-tokenize
-    ^ self at: #tokenize ifAbsent: true
-!
-
-tokenize: value
-    self set: #tokenize to: value.
-! !
-
-!PPCArguments methodsFor:'initialization'!
-
-initialize
-    super initialize.
-    arguments := IdentityDictionary new
-! !
-
-!PPCArguments methodsFor:'private'!
-
-at: symbol ifAbsent: defaultValue
-    ^ arguments at: symbol ifAbsent: [ ^ defaultValue  ]
-!
-
-set: symbol to: defaultValue
-    ^ arguments at: symbol put: defaultValue 
-! !
-