[Pkg] The Trunk: Regex-Core-ul.47.mcz

[commits at source.squeak.org]

Levente Uzonyi uploaded a new version of Regex-Core to project The Trunk:
http://source.squeak.org/trunk/Regex-Core-ul.47.mcz

==================== Summary ====================

Name: Regex-Core-ul.47
Author: ul
Time: 26 March 2016, 8:40:59.776673 pm
UUID: 37a57fa6-b710-420a-a5fa-c4ce991ec118
Ancestors: Regex-Core-ul.46

- fix a slip in RxMatchOptimizer >> #prefixTester

=============== Diff against Regex-Core-ul.46 ===============

Item was changed:
  ----- Method: RxMatchOptimizer>>prefixTester (in category 'private') -----
  prefixTester
  
  	| p |
  	prefixes ifNil: [ ^nil ].
  	prefixes size = 1 ifTrue: [
  		| prefixChar |
  		prefixChar := prefixes anyOne.
  		ignoreCase ifTrue: [ 
  			| lowercasePrefixChar |
  			lowercasePrefixChar := prefixChar asLowercase.
  			prefixChar := prefixChar asUppercase.
  			prefixChar == lowercasePrefixChar ifFalse: [
  				^[ :char :matcher | char == prefixChar or: [ char == lowercasePrefixChar ] ] ] ].
  		^[ :char :matcher | char == prefixChar ] ].
  	ignoreCase ifTrue: [
  		prefixes copy do: [ :each |
  			| character |
+ 			(character := each asUppercase) == each
+ 				ifFalse: [ prefixes add: character ]
+ 				ifTrue: [ 
+ 					(character := each asLowercase) == each ifFalse: [
+ 						prefixes add: character ] ] ] ].
- 			(character := each asUppercase) == each ifFalse: [
- 				prefixes add: character ].
- 			(character := each asUppercase) == each ifFalse: [
- 				prefixes add: character ] ] ].
  	prefixes size < 10 ifTrue: [ "10 is an empirical value"
  		p := prefixes asArray.
  		^[ :char :matcher | p instVarsInclude: char ] ].
  	^[ :char :matcher | prefixes includes: char ]!