<div dir="ltr">Wow, that's quite the bug :-)</div><div class="gmail_extra"><br><div class="gmail_quote">On Tue, Jan 27, 2015 at 8:53 AM, <span dir="ltr"><<a href="mailto:commits@source.squeak.org" target="_blank">commits@source.squeak.org</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Marcel Taeumel uploaded a new version of System to project The Inbox:<br>
<a href="http://source.squeak.org/inbox/System-mt.697.mcz" target="_blank">http://source.squeak.org/inbox/System-mt.697.mcz</a><br>
<br>
==================== Summary ====================<br>
<br>
Name: System-mt.697<br>
Author: mt<br>
Time: 27 January 2015, 5:53:38.431 pm<br>
UUID: 9296f429-477d-0745-a878-6e11e7de5edd<br>
Ancestors: System-cmm.696<br>
<br>
Let message tally ignore #home but just use #sender to handle block closures correctly.<br>
<br>
=============== Diff against System-cmm.696 ===============<br>
<br>
Item was changed:<br>
----- Method: MessageTally>>tally:by: (in category 'tallying') -----<br>
tally: context by: count<br>
"Explicitly tally the specified context and its stack."<br>
| sender |<br>
<br>
"Add to this node if appropriate"<br>
context method == method ifTrue: [^self bumpBy: count].<br>
<br>
"No sender? Add new branch to the tree."<br>
+ (sender := context sender) ifNil: [<br>
- (sender := context home sender)ifNil: [<br>
^ (self bumpBy: count) tallyPath: context by: count].<br>
<br>
"Find the node for the sending context (or add it if necessary)"<br>
^ (self tally: sender by: count) tallyPath: context by: count!<br>
<br>
Item was changed:<br>
----- Method: MessageTally>>tally:in:by: (in category 'tallying') -----<br>
tally: context in: aProcess by: count<br>
"Explicitly tally the specified context and its stack."<br>
| sender |<br>
<br>
"Add to this node if appropriate"<br>
context method == method ifTrue: [^self bumpBy: count].<br>
<br>
"No sender? Add new branch to the tree."<br>
+ (sender := context sender) ifNil: [<br>
- (sender := context home sender) ifNil: [<br>
^ (self bumpBy: count) tallyPath: context in: aProcess by: count].<br>
<br>
"Find the node for the sending context (or add it if necessary)"<br>
^ (self tally: sender in: aProcess by: count) tallyPath: context in: aProcess by: count!<br>
<br>
<br>
</blockquote></div><br><br clear="all"><div><br></div>-- <br><div class="gmail_signature">best,<div>Eliot</div></div>
</div>