Mercurial Mercurial > hg > stx-libbasic / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
class: Collection
authorClaus Gittinger <cg@exept.de>
Wed, 12 Feb 2014 15:40:03 +0100
changeset 16007 fcc49f75d8de
parent 16006 294df16bde03
child 16008 25ae6c8526f6
class: Collection changed: #keysOfSmallest: (send #max instead of #min)
Collection.st file | annotate | diff | comparison | revisions 
--- a/Collection.st	Wed Feb 12 15:38:14 2014 +0100
+++ b/Collection.st	Wed Feb 12 15:40:03 2014 +0100
@@ -4211,13 +4211,13 @@
             [:k :el | 
                 nSmallest add:(el -> k).
                 nSmallest size == n ifTrue:[
-                    maxInSmallest := nSmallest min key.
+                    maxInSmallest := nSmallest max key.
                     loopAction := 
                         [:k :el |
                             el < maxInSmallest ifTrue:[
                                 nSmallest removeLast.
                                 nSmallest add:(el -> k).
-                                maxInSmallest := nSmallest min key
+                                maxInSmallest := nSmallest max key
                             ].
                         ]
                 ].
@@ -5374,11 +5374,11 @@
 !Collection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.323 2014-02-12 14:35:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.324 2014-02-12 14:40:03 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.323 2014-02-12 14:35:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.324 2014-02-12 14:40:03 cg Exp $'
 ! !
hg/stx-libbasic