quakeforge/ruamoko/scheme/BaseContinuation.r

29 lines
449 B
R
Raw Normal View History

#include "BaseContinuation.h"
instruction_t returninst;
BaseContinuation base;
@implementation BaseContinuation
+ (void) initialize
{
returninst.opcode = RETURN;
base = [BaseContinuation new];
}
+ (id) baseContinuation
{
return base;
}
- (void) restoreOnMachine: (Machine) m
{
[m state].program = &returninst;
}
- (void) invokeOnMachine: (Machine) m
{
[m value: [[m stack] car]];
[m state].program = &returninst;
}
@end