The Trunk: System-nice.359.mcz

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

==================== 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!