Nicolas Cellier uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-nice.81.mcz

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

Name: EToys-nice.81
Author: nice
Time: 11 April 2011, 5:09:11.366 pm
UUID: fae72e1a-46f4-8140-9c61-8346aac61c4a
Ancestors: EToys-ul.80

Use #repeat instead of  [true] whileTrue

=============== Diff against EToys-ul.80 ===============

Item was changed:
  ----- Method: SyntaxMorph>>receiverOrArgTypeAbove (in category 'type checking') -----
  receiverOrArgTypeAbove
  	"Return the type for me according to the message that encloses me."
  
  	| enclosing sub list |
  	(self nodeClassIs: BlockNode) ifTrue: [^#command].
  	enclosing := owner.
  	sub := self.
  	
  	[enclosing isSyntaxMorph ifFalse: [^#unknown].
  	(enclosing nodeClassIs: MessageNode) 
  		ifTrue: 
  			[list := enclosing submorphs 
  						select: [:ss | ss isSyntaxMorph and: [ss parseNode notNil]].
  			list size = 1 
  				ifFalse: 
  					[^(list indexOf: sub) = 1 
  						ifTrue: [enclosing receiverTypeFor: enclosing selector]
  						ifFalse: [enclosing argTypeFor: enclosing selector]]].
  	(enclosing nodeClassIs: BlockNode) ifTrue: [^#command].
  	sub := enclosing.
+ 	enclosing := enclosing owner] repeat!
- 	enclosing := enclosing owner.
- 	true] 
- 			whileTrue!