[Pkg] Packages: Sake-Packages-kph.44.mcz

[squeak-dev-noreply at lists.squeakfoundation.org]

A new version of Sake-Packages was added to project Packages:
http://www.squeaksource.com/Packages/Sake-Packages-kph.44.mcz

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

Name: Sake-Packages-kph.44
Author: kph
Time: 21 July 2009, 2:21:17 am
UUID: e5cf5594-7819-485a-a062-c046b622c883
Ancestors: Sake-Packages-kph.43

apply beLatest to lists given to #latest:

=============== Diff against Sake-Packages-kph.43 ===============

Item was changed:
  ----- Method: Packages class>>named: (in category 'public') -----
  named: packageNameOrList
  	
+ 	^ self named: packageNameOrList do: [ :ea | ea ]!
- 	packageNameOrList isString ifTrue: [ ^ (self findNamed: packageNameOrList) ifNil: [ self error: 'not found: ', packageNameOrList ]].
- 	
- 	^ (packageNameOrList collect: [ :ea | (self findNamed: ea) ifNil: [ self error: 'not found: ', packageNameOrList ]]) asTask
- 	!

Item was added:
+ ----- Method: Packages class>>named:do: (in category 'public') -----
+ named: packageNameOrList do: aBlock
+ 	
+ 	packageNameOrList isString ifTrue: [ ^ aBlock value: ((self findNamed: packageNameOrList) ifNil: [ self error: 'not found: ', packageNameOrList ])].
+ 	
+ 	^ (packageNameOrList collect: [ :ea | aBlock value: (((self findNamed: ea) ifNil: [ self error: 'not found: ', packageNameOrList ]))]) asTask
+ 	!

Item was changed:
  ----- Method: Packages class>>latest: (in category 'public') -----
  latest: aNameOrList
  
+ 	^ (self named: aNameOrList do: [ :ea | ea beLatest]) run!
- 	^ (self named: aNameOrList) beLatest run!