[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:
http://source.squeak.org/trunk/System-cwp.661.mcz
==================== 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