[squeak-dev] The Trunk: MonticelloConfigurations-nice.64.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Oct 20 22:37:26 UTC 2009


Nicolas Cellier uploaded a new version of MonticelloConfigurations to project The Trunk:
http://source.squeak.org/trunk/MonticelloConfigurations-nice.64.mcz

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

Name: MonticelloConfigurations-nice.64
Author: nice
Time: 21 October 2009, 12:37:14 pm
UUID: 4489739f-f799-4145-bfea-ffa654717057
Ancestors: MonticelloConfigurations-nice.63

Use #keys rather than #fasterKeys
Note that pattern (x keys asArray sort) could as well be written (x keys sort) now that keys returns an Array...
This #asArray is here solely for cross-dialect/fork compatibility.

=============== Diff against MonticelloConfigurations-nice.63 ===============

Item was changed:
  ----- Method: MCConfiguration>>updateFromRepositories (in category 'updating') -----
  updateFromRepositories
  	| oldInfos newNames sortedNames newDeps |
  	oldInfos := self dependencies collect: [:dep | dep versionInfo].
  	newNames := Dictionary new.
  	self repositories
  		do: [:repo | 
  			ProgressNotification signal: '' extra: 'Checking ', repo description.
  			(repo possiblyNewerVersionsOfAnyOf: oldInfos)
  				do: [:newName | newNames at: newName put: repo]]
  		displayingProgress: 'Searching new versions'.
  
+ 	sortedNames := newNames keys asArray sort:
- 	sortedNames := newNames fasterKeys sort:
  		[:a :b | a numericSuffix > b numericSuffix].
  
  	newDeps := OrderedCollection new.
  	self dependencies do: [:dep |
  		| newName |
  		newName := sortedNames
  			detect: [:each | (each copyUpToLast: $-) = dep package name]
  			ifNone: [nil].
  		newDeps add: (newName
  			ifNil: [dep]
  			ifNotNil: [
  				| repo info  |
  				repo := newNames at: newName.
  				info := self versionInfoNamed: newName for: dep from: repo.
  				info ifNil: [dep]
  					ifNotNil: [MCVersionDependency package: dep package info: info]
  			])
  	] displayingProgress: 'downloading new versions'.
  
  	self dependencies: newDeps.
  !




More information about the Squeak-dev mailing list