[Pkg] The Trunk: System-eem.700.mcz

[commits at source.squeak.org]

Eliot Miranda uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-eem.700.mcz

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

Name: System-eem.700
Author: eem
Time: 1 February 2015, 5:50:46.817 pm
UUID: f755aede-d893-40a4-92a3-bfbbff0e4c01
Ancestors: System-eem.699

MessageTally>>tally:by: should check block nesting.

=============== Diff against System-eem.699 ===============

Item was changed:
  ----- Method: MessageTally>>tally:by: (in category 'tallying') -----
  tally: context by: count
  	"Explicitly tally the specified context and its stack."
- 	| sender |
- 	
  	"Add to this node if appropriate"
+ 	(context method == method
+ 	 and: [blockNesting = (self blockNestingCountOf: context)]) ifTrue:
+ 		[^self bumpBy: count].
+ 
+ 	^context sender
+ 		ifNil: "No sender? Add new branch to the tree."
+ 			[(self bumpBy: count) tallyPath: context by: count]
+ 		ifNotNil: "Find the node for the sending context (or add it if necessary)"
+ 			[:sender|
+ 			 (self tally: sender by: count) tallyPath: context by: count]!
- 	context method == method ifTrue: [^self bumpBy: count].
- 	
- 	"No sender? Add new branch to the tree."
- 	(sender :=  context sender) ifNil: [
- 		^ (self bumpBy: count) tallyPath: context by: count].
- 	
- 	"Find the node for the sending context (or add it if necessary)"
- 	^ (self tally: sender by: count) tallyPath: context by: count!