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.
*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Tue, 10 Sep 2002 17:29:35 +0200
changeset 6752 3584b9380c85
parent 6751 41a67e231af6
child 6753 1a4a541850f2
*** empty log message ***
ArrayedCollection.st file | annotate | diff | comparison | revisions 
--- a/ArrayedCollection.st	Tue Sep 10 16:53:33 2002 +0200
+++ b/ArrayedCollection.st	Tue Sep 10 17:29:35 2002 +0200
@@ -377,7 +377,7 @@
      - you should write your collection classes to avoid the use of become. 
      You have been warned."
 
-    |newArray oldSize senderContext senderSenderContext|
+    |newArray oldSize sender|
 
     oldSize := self size.
     (newSize ~~ oldSize) ifTrue:[
@@ -389,13 +389,9 @@
             "/
             'ArrayedCollection [info]: slow grow operation (' infoPrint.
             self class name infoPrint. ') via ' infoPrint.
-            senderContext := thisContext sender.
-            [senderContext receiver == self] whileTrue:[
-                senderContext methodPrintString infoPrint.
-                senderSenderContext := senderContext sender.
-                ' from ' infoPrint. senderSenderContext methodPrintString infoPrintCR.
-                senderContext := senderSenderContext.
-            ].
+            sender := thisContext sender.
+            sender methodPrintString infoPrint. 
+            ' from ' infoPrint. sender sender methodPrintString infoPrintCR.
         ].
 
         newArray := self species new:newSize.
@@ -442,5 +438,5 @@
 !ArrayedCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ArrayedCollection.st,v 1.51 2002-09-10 14:53:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ArrayedCollection.st,v 1.52 2002-09-10 15:29:35 cg Exp $'
 ! !
hg/stx-libbasic