The Trunk: ShoutCore-ul.27.mcz

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!