[Pkg] The Trunk: System-cwp.661.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Jan 9 23:58:39 UTC 2014

Colin Putney uploaded a new version of System to project The Trunk:

==================== Summary ====================

Name: System-cwp.661
Author: cwp
Time: 9 January 2014, 6:56:09.652 pm
UUID: d6fdfa88-0d1f-45b0-898a-dd1298e6da72
Ancestors: System-cwp.660

Fix the bug I introduced to SystemNavigation>>allObjectsDo:.

=============== Diff against System-cwp.660 ===============

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 or: [0 == object]]
- 	[lastObject == object | object == 0]
  		whileFalse: [aBlock value: object.
  			object := object nextObject]!

Item was added:
+ ----- Method: TextSqkProjectLink>>writeScanOn: (in category 'as yet unclassified') -----
+ writeScanOn: strm
+ 	strm nextPut: $p; nextPutAll: url; nextPut: $;!

More information about the Packages mailing list