Mercurial Mercurial > hg > stx-libbasic / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
ArrayedCollection.st
changeset 599 8a0fefb0a725
parent 590 3ffb78fb2716
child 602 771ab7a8c4bf 
--- a/ArrayedCollection.st	Wed Nov 22 20:16:39 1995 +0100
+++ b/ArrayedCollection.st	Wed Nov 22 23:06:32 1995 +0100
@@ -34,7 +34,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ArrayedCollection.st,v 1.25 1995-11-21 12:48:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ArrayedCollection.st,v 1.26 1995-11-22 22:06:32 cg Exp $'
 !
 
 documentation
@@ -226,7 +226,7 @@
      - you should write your collection classes to avoid the use of become. 
      You have been warned."
 
-    |newArray oldSize|
+    |newArray oldSize sender|
 
     oldSize := self size.
     (newSize ~~ oldSize) ifTrue:[
@@ -237,8 +237,9 @@
 	"/
 	'ARRCOLL: Warning: slow grow operation (' infoPrint.
 	self class name infoPrint. ') via ' infoPrint.
-	thisContext sender methodPrintString infoPrint. 
-	' from ' infoPrint. thisContext sender sender methodPrintString infoPrintNL.
+        sender := thisContext sender.
+	sender methodPrintString infoPrint. 
+	' from ' infoPrint. sender sender methodPrintString infoPrintNL.
 
 	newArray := self species new:newSize.
 	newArray replaceFrom:1 to:(newSize min:oldSize) with:self.
hg/stx-libbasic