[Pkg] The Trunk: System-nice.359.mcz

commits at source.squeak.org commits at source.squeak.org
Sun Aug 22 18:44:07 UTC 2010

Nicolas Cellier uploaded a new version of System to project The Trunk:

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

Name: System-nice.359
Author: nice
Time: 22 August 2010, 8:43:14.973 pm
UUID: 9c83c555-9d3c-4188-a4dd-cc1539469b62
Ancestors: System-eem.357

minor change: avoid creating a SortedCollection when not necessary...
asSortedCollection asArray -> asArray sort

=============== Diff against System-eem.357 ===============

Item was changed:
  ----- Method: SystemOrganizer>>orderedTraitsIn: (in category 'fileIn/Out') -----
  orderedTraitsIn: category 
  	"Answer an OrderedCollection containing references to the traits in the 
  	category whose name is the argument, category (a string). The traits 
  	are ordered so they can be filed in."
  	| behaviors traits |
  	behaviors := (self listAtCategoryNamed: category asSymbol) 
  			collect: [:title | Smalltalk at: title].
  	traits := behaviors reject: [:each | each isBehavior].
+ 	^traits asArray sort: [:t1 :t2 |
- 	traits := traits asSortedCollection: [:t1 :t2 |
  		(t2 traitComposition allTraits includes: t1)
+ 			or: [(t1 traitComposition allTraits includes: t2) not]]!
- 			or: [(t1 traitComposition allTraits includes: t2) not]].
- 	^traits asArray!

More information about the Packages mailing list