--- a/PPToken.st Wed Nov 19 10:52:37 2014 +0000
+++ b/PPToken.st Mon Nov 24 00:09:23 2014 +0000
@@ -35,15 +35,6 @@
value: anObject
! !
-!PPToken methodsFor:'*petitcompiler'!
-
-= anObject
- ^ self class = anObject class and: [ self inputValue = anObject inputValue ]
-!
-
-hash
- ^ self inputValue hash
-! !
!PPToken methodsFor:'accessing'!
@@ -90,6 +81,16 @@
^ self inputValue
! !
+!PPToken methodsFor:'comparing'!
+
+= anObject
+ ^ self class = anObject class and: [ self parsedValue = anObject parsedValue ]
+!
+
+hash
+ ^ self parsedValue hash
+! !
+
!PPToken methodsFor:'copying'!
copyFrom: aStartInteger to: aStopInteger