--- a/compiler/PEGFsaTransition.st Mon Aug 17 12:13:16 2015 +0100
+++ b/compiler/PEGFsaTransition.st Mon Aug 24 15:34:14 2015 +0100
@@ -3,7 +3,7 @@
"{ NameSpace: Smalltalk }"
Object subclass:#PEGFsaTransition
- instanceVariableNames:'destination priority characterSet'
+ instanceVariableNames:'destination priority'
classVariableNames:''
poolDictionaries:''
category:'PetitCompiler-FSA'
@@ -19,14 +19,6 @@
!PEGFsaTransition methodsFor:'accessing'!
-characterSet
- ^ characterSet
-!
-
-characterSet: anObject
- characterSet := anObject
-!
-
destination
^ destination
!
@@ -88,7 +80,6 @@
postCopy
super postCopy.
- characterSet := characterSet copy.
! !
!PEGFsaTransition methodsFor:'gt'!
@@ -109,10 +100,6 @@
!PEGFsaTransition methodsFor:'modifications'!
-addCharacter: character
- characterSet at: character codePoint put: true
-!
-
decreasePriority
self decreasePriorityBy: 1
!
@@ -178,7 +165,7 @@
!PEGFsaTransition methodsFor:'testing'!
accepts: character
- ^ characterSet at: character codePoint
+ ^ self subclassResponsibility
!
isCharacterTransition