The Trunk: Kernel-ul.374.mcz

Levente Uzonyi uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-ul.374.mcz

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

Name: Kernel-ul.374
Author: ul
Time: 11 January 2010, 8:58:21.133 am
UUID: 7e31dbcf-2831-884b-af07-f7969ebd5ef5
Ancestors: Kernel-ar.373

- code critics

=============== Diff against Kernel-ar.373 ===============

Item was changed:
  ----- Method: ContextPart class>>trace:onFileNamed: (in category 'examples') -----
+ trace: aBlock onFileNamed: fileName
+ "ContextPart trace: [3 factorial] onFileNamed: 'trace'"
- trace: aBlock onFileNamed: fileName "ContextPart trace: [3 factorial] onFileNamed: 'trace'"
  "This method uses the simulator to print calls to a file."
 
+ ^FileStream fileNamed: fileName do: [ :file |
+ self trace: aBlock on: file ]!
- | aStream |
- ^ [aStream := FileStream fileNamed: fileName.
- self trace: aBlock on: aStream] ensure: [aStream close]!

Item was changed:
  ----- Method: CompiledMethod>>searchImageForHomeMethod (in category 'closures') -----
  searchImageForHomeMethod
 
+ SystemNavigation default allObjectsDo: [:obj |
- Smalltalk allObjectsDo: [:obj |
  obj class == CompiledMethod ifTrue: [
  (obj pointsTo: self) ifTrue: [^ obj searchImageForHomeMethod]
  ] ifFalse: [obj class == BlockClosure ifTrue: [
  (obj method == self and: [obj size = 0])
  ifTrue: [^ obj searchImageForHomeMethod]
  ]]
  ].
  ^ self  "must be a loner block method"!