[BUG]Collection>>removeAll:
Jon Hylands
jon at huv.com
Thu Aug 29 11:17:40 UTC 2002
On Thu, 29 Aug 2002 13:58:11 +1200 (NZST), "Richard A. O'Keefe"
<ok at cs.otago.ac.nz> wrote:
> So the "don't change it" brigade may be fighting to preserve a bug
> which was introduced comparatively recently.
I have an image on my machine dated September 1996, and it says "Squeak 1.1
of September 21, 1996". The version of removeIndex: looks like (for some
reason, the sources file isn't hooked up);
removeIndex: t1
| t2 |
t2 _ t1.
[t2 < lastIndex]
whileTrue:
[array at: t2 put: (array at: t2 + 1).
t2 _ t2 + 1].
array at: lastIndex put: nil.
lastIndex _ lastIndex - 1.
^ self
Later,
Jon
--------------------------------------------------------------
Jon Hylands Jon at huv.com http://www.huv.com/jon
Project: Micro Seeker (Micro Autonomous Underwater Vehicle)
http://www.huv.com
More information about the Squeak-dev
mailing list
|