[Pkg] The Trunk: EToys-nice.81.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Apr 11 15:09:18 UTC 2011

Nicolas Cellier uploaded a new version of EToys to project The Trunk:

==================== 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') -----
  	"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) 
  			[list := enclosing submorphs 
  						select: [:ss | ss isSyntaxMorph and: [ss parseNode notNil]].
  			list size = 1 
  					[^(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!

More information about the Packages mailing list