[Newcompiler] ASTTranslator>>#emitToDoNode:

[Mathieu Suen]

Hi,

When I read this method I wonder why we are using stuff from the  
RewriteTools:


	(limit isLiteral or:
		[limit isVariable and:
			[ParseTreeSearcher new
				matches: limit name , ' := `@object' do: [:n :a | false];
				executeTree: block initialAnswer: true]]
	) ifFalse: [
		limit := {iterator. #limit}.  "must be unique throughout method"
		methodBuilder addTemp: limit.
		methodBuilder storeTemp: limit.
		limitEmit := [methodBuilder pushTemp: limit].
	].

I propose to add a Visitor to test if there is an affectation to the  
first argument of the toDo.

	Mth