equal
deleted
inserted
replaced
50 |
50 |
51 hash |
51 hash |
52 ^ first hash bitXor: second hash |
52 ^ first hash bitXor: second hash |
53 ! ! |
53 ! ! |
54 |
54 |
|
55 !PEGFsaPair methodsFor:'enumerating'! |
|
56 |
|
57 detect: block |
|
58 (block value: self first) ifTrue: [ ^ self first ]. |
|
59 (block value: self second) ifTrue: [ ^ self second ]. |
|
60 |
|
61 self error: 'not found!!' |
|
62 ! ! |
|
63 |
|
64 !PEGFsaPair methodsFor:'testing'! |
|
65 |
|
66 contains: block |
|
67 ^ (block value: self first) or: [ block value: self second ] |
|
68 ! |
|
69 |
|
70 includes: anObject |
|
71 ^ self first == anObject or: [ self second == anObject ] |
|
72 ! ! |
|
73 |