<div dir="ltr">Wow, that&#39;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">&lt;<a href="mailto:commits@source.squeak.org" target="_blank">commits@source.squeak.org</a>&gt;</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&gt;&gt;tally:by: (in category &#39;tallying&#39;) -----<br>
  tally: context by: count<br>
        &quot;Explicitly tally the specified context and its stack.&quot;<br>
        | sender |<br>
<br>
        &quot;Add to this node if appropriate&quot;<br>
        context method == method ifTrue: [^self bumpBy: count].<br>
<br>
        &quot;No sender? Add new branch to the tree.&quot;<br>
+       (sender :=  context sender) ifNil: [<br>
-       (sender :=  context home sender)ifNil: [<br>
                ^ (self bumpBy: count) tallyPath: context by: count].<br>
<br>
        &quot;Find the node for the sending context (or add it if necessary)&quot;<br>
        ^ (self tally: sender by: count) tallyPath: context by: count!<br>
<br>
Item was changed:<br>
  ----- Method: MessageTally&gt;&gt;tally:in:by: (in category &#39;tallying&#39;) -----<br>
  tally: context in: aProcess by: count<br>
        &quot;Explicitly tally the specified context and its stack.&quot;<br>
        | sender |<br>
<br>
        &quot;Add to this node if appropriate&quot;<br>
        context method == method ifTrue: [^self bumpBy: count].<br>
<br>
        &quot;No sender? Add new branch to the tree.&quot;<br>
+       (sender :=  context sender) ifNil: [<br>
-       (sender :=  context home sender) ifNil: [<br>
                ^ (self bumpBy: count) tallyPath: context in: aProcess by: count].<br>
<br>
        &quot;Find the node for the sending context (or add it if necessary)&quot;<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>