changeset 523 | 09afcf28ed60 |
parent 515 | b5316ef15274 |
child 525 | 751532c8f3db |
--- a/compiler/PEGFsaCharacterTransition.st Tue Aug 18 22:16:18 2015 +0100 +++ b/compiler/PEGFsaCharacterTransition.st Tue Aug 18 22:46:10 2015 +0100 @@ -179,19 +179,6 @@ ^ complement ! -disjunction: transition - | disjunction | - disjunction := Array new: 255. - - 1 to: 255 do: [ :index | - disjunction - at: index - put: ((self characterSet at: index) xor: [transition characterSet at: index]) - ]. - - ^ disjunction -! - intersection: transition | intersection | intersection := Array new: 255.