[Pkg] The Trunk: ShoutCore-ul.27.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Nov 17 11:03:33 UTC 2010


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

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

Name: ShoutCore-ul.27
Author: ul
Time: 17 November 2010, 12:03:24.046 pm
UUID: c8ad7979-85ad-b844-9256-a0826a4ff417
Ancestors: ShoutCore-ul.26

- use block arguments with #findBinary:ifNone:

=============== Diff against ShoutCore-ul.26 ===============

Item was changed:
  ----- Method: SystemDictionary>>hasBindingThatBeginsWith: (in category '*ShoutCore') -----
  hasBindingThatBeginsWith: aString
  	"Use the cached class and non-class names for better performance."
  
  	| name searchBlock |
  	searchBlock := [ :element |
  		(element beginsWith: aString)
  			ifTrue: [ 0 ]
  			ifFalse: [
  				aString < element
  					ifTrue: [ -1 ]
  					ifFalse: [ 1 ] ] ].
  	name := self classNames 
  		findBinary: searchBlock
+ 		ifNone: [ nil ].
- 		ifNone: nil.
  	name ifNotNil: [ ^true ].
  	name := self nonClassNames 
  		findBinary: searchBlock
+ 		ifNone: [ nil ].
- 		ifNone: nil.
  	^name notNil!



More information about the Packages mailing list