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.
oops - last fix wasn't
authorClaus Gittinger <cg@exept.de>
Wed, 08 Nov 1995 15:36:11 +0100
changeset 508 cba92a0c84ac
parent 507 a7780fc27ee9
child 509 8f4649450d6e
oops - last fix wasn't
OrdColl.st file | annotate | diff | comparison | revisions
OrderedCollection.st file | annotate | diff | comparison | revisions 
--- a/OrdColl.st	Wed Nov 08 15:26:31 1995 +0100
+++ b/OrdColl.st	Wed Nov 08 15:36:11 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Attic/OrdColl.st,v 1.34 1995-11-08 12:16:58 cg Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/OrdColl.st,v 1.35 1995-11-08 14:36:11 cg Exp $
 '!
 
 !OrderedCollection class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Attic/OrdColl.st,v 1.34 1995-11-08 12:16:58 cg Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/OrdColl.st,v 1.35 1995-11-08 14:36:11 cg Exp $
 "
 !
 
@@ -859,11 +859,8 @@
      which get elements removed at the end and added at front.
     "
     oldSize > (sz * 2) ifTrue:[
-	sz > 1 ifTrue:[
-	    startIndex := oldSize // 4.
-	    startIndex == 0 ifTrue:[
-		startIndex := 1
-	    ].
+	startIndex := oldSize // 4.
+	startIndex > 1 ifTrue:[
 	    contentsArray
 		replaceFrom:startIndex
 		to:startIndex + sz - 1
--- a/OrderedCollection.st	Wed Nov 08 15:26:31 1995 +0100
+++ b/OrderedCollection.st	Wed Nov 08 15:36:11 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/OrderedCollection.st,v 1.34 1995-11-08 12:16:58 cg Exp $
+$Header: /cvs/stx/stx/libbasic/OrderedCollection.st,v 1.35 1995-11-08 14:36:11 cg Exp $
 '!
 
 !OrderedCollection class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/OrderedCollection.st,v 1.34 1995-11-08 12:16:58 cg Exp $
+$Header: /cvs/stx/stx/libbasic/OrderedCollection.st,v 1.35 1995-11-08 14:36:11 cg Exp $
 "
 !
 
@@ -859,11 +859,8 @@
      which get elements removed at the end and added at front.
     "
     oldSize > (sz * 2) ifTrue:[
-	sz > 1 ifTrue:[
-	    startIndex := oldSize // 4.
-	    startIndex == 0 ifTrue:[
-		startIndex := 1
-	    ].
+	startIndex := oldSize // 4.
+	startIndex > 1 ifTrue:[
 	    contentsArray
 		replaceFrom:startIndex
 		to:startIndex + sz - 1
hg/stx-libbasic