changeset 421 | 7e08b31e0dae |
parent 414 | 0eaf09920532 |
child 422 | 116d2b2af905 |
--- a/compiler/PPCTokenNode.st Wed Nov 19 10:52:37 2014 +0000 +++ b/compiler/PPCTokenNode.st Mon Nov 24 00:09:23 2014 +0000 @@ -66,3 +66,14 @@ ^ #token ! ! +!PPCTokenNode methodsFor:'comparing'! + += anotherNode + super = anotherNode ifFalse: [ ^ false ]. + ^ tokenClass = anotherNode tokenClass. +! + +hash + ^ super hash bitXor: tokenClass hash +! ! +