[squeak-dev] The Trunk: System-cwp.660.mcz
commits at source.squeak.org
commits at source.squeak.org
Thu Jan 9 02:03:57 UTC 2014
Colin Putney uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-cwp.660.mcz
==================== Summary ====================
Name: System-cwp.660
Author: cwp
Time: 8 January 2014, 9:02:53.874 pm
UUID: 3fb6a88d-86cf-4625-b7b5-e59a476195b3
Ancestors: System-cwp.659
Add a test for 0 in #allObjectsDo:, as it's possible for the sentinel object not to be enumerated.
=============== Diff against System-cwp.659 ===============
Item was changed:
----- Method: SystemNavigation>>allObjectsDo: (in category 'query') -----
allObjectsDo: aBlock
"Evaluate the argument, aBlock, for each object in the system
excluding SmallIntegers. With closures, this needs to use an end
marker (lastObject) since activation of the block will create new
contexts and cause an infinite loop."
| object lastObject |
object := self someObject.
lastObject := Object new.
+ [lastObject == object | object == 0]
- [lastObject == object]
whileFalse: [aBlock value: object.
object := object nextObject]!
More information about the Squeak-dev
mailing list
|