[Pkg] 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:

==================== 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 Packages mailing list