Continuation

• restoreValues

• numArgs
• value
• value:
• valueWithArguments:

• initializeFromContext:
• terminate:

• current
• currentDo:
• fromContext:

inferredType:

UndefinedObject

	| valueStream context |
	valueStream _ values readStream.
	[valueStream atEnd] whileFalse:
		[context _ valueStream next.
		1 to: context class instSize do: [:i | context instVarAt: i put: valueStream next].
		1 to: context localSize do: [:i | context localAt: i put: valueStream next]]

	^ 1

	self value: nil

	self terminate: thisContext.
	self restoreValues.
	thisContext swapSender: values first.
	^v

	v size == 1 ifFalse: [^self error: 'continuations can only be resumed with one argument'].
	self value: v first

	| valueStream context |
	valueStream _ WriteStream on: (Array new: 20).
	context _ aContext.
	[context notNil] whileTrue:
		[valueStream nextPut: context.
		1 to: context class instSize do: [:i | valueStream nextPut: (context instVarAt: i)].
		1 to: context localSize do: [:i | valueStream nextPut: (context localAt: i)].
		context _ context sender].
	values _ valueStream contents

	| context |
	context _ aContext.
	[context notNil] whileTrue: [context _ context swapSender: nil]

	^ self fromContext: thisContext sender

	^ aBlock value: (self fromContext: thisContext sender)

	^self new initializeFromContext: aStack