'From Croquet1.0beta of 11 April 2006 [latest update: #1] on 6 August 2008 at 12:53:05 pm'!

!CParser methodsFor: 'events' stamp: 'ar 3/26/2004 15:45'!
blockTrigger
	"Parse a block trigger"
	| methodNode method |
	self advance.
	self statements: #() innerBlock: false.
	(self match: #rightBracket) ifFalse: [^self expected: 'Period or right bracket'].
	methodNode := self newMethodNode.
	methodNode
		selector: #blockTrigger
		arguments: #()
		precedence: 1
		temporaries: #()
		block: parseNode
		encoder: encoder
		primitive: 0
		properties: nil.
	method := methodNode generate: #(0 0 0 0).
	^method
! !


!FutureNode methodsFor: 'code generation (closures)' stamp: 'eem 7/17/2008 19:58'!
analyseTempsWithin: scopeBlock "<BlockNode>" rootNode: rootNode "<MethodNode>"
	{ receiver. futureDelta }, (futureArgs ifNil: [#()]) do:
		[:node|
		node == nil ifFalse:
			[node analyseTempsWithin: scopeBlock rootNode: rootNode]]! !

FutureNode removeSelector: #analyseTempsWithin:forValue:encoder:!
CParser removeSelector: #pattern:inContext:!