On Thu, 9 Jan 2014, commits at source.squeak.org wrote:

> 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.

How can that happen?


Levente

>
> =============== 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]!
>
>
>