[Pkg] The Trunk: Kernel-ul.374.mcz

[commits at source.squeak.org]

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"!