with closures the block in allSubInstances will be a different object on each evaluation. �Pre closures this would have been a single BlockContext used for each evaluation of the block (and hence non-reentrant). �So you need to modify, e.g. by implementing allInstancesDo: in MethodContext class:<div>
<br><div>
<div>&#39;From Croquet1.0beta of 11 April 2006 [latest update: #1] on 18 December 2009 at 9:26:47 am&#39;!</div><div><br></div><div>!MethodContext class methodsFor: &#39;hacks&#39; stamp: &#39;ar 9/17/2008 16:24&#39;!</div>
<div>allInstancesDo: aBlock</div><div><span class="Apple-tab-span" style="white-space:pre">	</span>&quot;Only count until thisContext&quot;</div><div><span class="Apple-tab-span" style="white-space:pre">	</span>| inst next |</div>
<div><span class="Apple-tab-span" style="white-space:pre">	</span>inst := self someInstance.</div><div><span class="Apple-tab-span" style="white-space:pre">	</span>[inst == thisContext] whileFalse:[</div><div><span class="Apple-tab-span" style="white-space:pre">		</span>next := inst nextInstance.</div>
<div><span class="Apple-tab-span" style="white-space:pre">		</span>aBlock value: inst.</div><div><span class="Apple-tab-span" style="white-space:pre">		</span>inst := next]! !</div><div><br></div><div>find it attached</div>
<div><br></div><div class="gmail_quote">On Fri, Dec 18, 2009 at 7:47 AM, Stan Shepherd <span dir="ltr">&lt;<a href="mailto:stan.shepherd414@gmail.com" target="_blank">stan.shepherd414@gmail.com</a>&gt;</span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">

<br>
Pharo image: Pharo | Pharo-core<br>
PharoCore1.0rc1 Latest update: #10502<br>
VM: unix - i686 - linux-gnu - Pharo0.1 of 16 May 2008 [latest update:<br>
#10074]<br>
<br>
Steps to reproduce:<br>
1.Object allSubInstances<br>
<br>
It appears to be repeatedly adding its current context.<br>
<br>
...Stan<br>
<br>
OrderedCollection&gt;&gt;addLast:<br>
 � � � �Receiver: an OrderedCollection(an Object an Object an Object an<br>
Object an Object an Object an Object...etc...<br>
 � � � �Arguments and temporary variables:<br>
 � � � � � � � �newObject: � � �[] in Object<br>
class(Behavior)&gt;&gt;allSubInstances<br>
 � � � �Receiver&#39;s instance variables:<br>
 � � � � � � � �array: �an Array(an Object an Object an Object an Object an<br>
Object an Object an ...etc...<br>
 � � � � � � � �firstIndex: � � 1<br>
 � � � � � � � �lastIndex: � � �1173805<br>
<br>
OrderedCollection&gt;&gt;add:<br>
 � � � �Receiver: an OrderedCollection(an Object an Object an Object an<br>
Object an Object an Object an Object...etc...<br>
 � � � �Arguments and temporary variables:<br>
 � � � � � � � �newObject: � � �[] in Object<br>
class(Behavior)&gt;&gt;allSubInstances<br>
 � � � �Receiver&#39;s instance variables:<br>
 � � � � � � � �array: �an Array(an Object an Object an Object an Object an<br>
Object an Object an ...etc...<br>
 � � � � � � � �firstIndex: � � 1<br>
 � � � � � � � �lastIndex: � � �1173805<br>
<br>
[] in Object class(Behavior)&gt;&gt;allSubInstances<br>
 � � � �Receiver: Object<br>
 � � � �Arguments and temporary variables:<br>
 � � � � � � � �aCollection: � �[] in Object<br>
class(Behavior)&gt;&gt;allSubInstances<br>
 � � � � � � � �x: � � �an OrderedCollection(an Object an Object an Object<br>
an Object an Object an Ob...etc...<br>
 � � � �Receiver&#39;s instance variables:<br>
 � � � � � � � �superclass: � � ProtoObject<br>
 � � � � � � � �methodDict: � � a MethodDictionary(size 408)<br>
 � � � � � � � �format: � � � � 2<br>
 � � � � � � � �instanceVariables: � � �nil<br>
 � � � � � � � �organization: � (&#39;*DynamicBindings&#39; binding binding:<br>
hasBinding removeBinding)<br>
(&#39;...etc...<br>
 � � � � � � � �subclasses: � � {BalloonState. StandardFileMenuResult.<br>
UndefinedObject. Boolean. Fi...etc...<br>
 � � � � � � � �name: � #Object<br>
 � � � � � � � �classPool: � � �a Dictionary(#DependentsFields-&gt;a<br>
WeakIdentityKeyDictionary(MCWorkin...etc...<br>
 � � � � � � � �sharedPools: � �nil<br>
 � � � � � � � �environment: � �Smalltalk<br>
 � � � � � � � �category: � � � #&#39;Kernel-Objects&#39;<br>
 � � � � � � � �traitComposition: � � � {}<br>
 � � � � � � � �localSelectors: � � � � nil<br>
...<br>
<font color="#888888">--<br>
View this message in context: <a href="http://n2.nabble.com/Issue-1633-Object-allSubInstances-appears-to-loop-forever-tp4187269p4187269.html" target="_blank">http://n2.nabble.com/Issue-1633-Object-allSubInstances-appears-to-loop-forever-tp4187269p4187269.html</a><br>


Sent from the Pharo Smalltalk mailing list archive at Nabble.com.<br>
<br>
_______________________________________________<br>
Pharo-project mailing list<br>
<a href="mailto:Pharo-project@lists.gforge.inria.fr" target="_blank">Pharo-project@lists.gforge.inria.fr</a><br>
<a href="http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project" target="_blank">http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project</a><br>
</font></blockquote></div><br></div>
</div>