quakeforge/ruamoko/scheme/Procedure.r

17 lines
211 B
R
Raw Normal View History

#include "Procedure.h"
#include "Machine.h"
@implementation Procedure
- (void) invokeOnMachine: (Machine []) m
{
[m procedure: self];
return;
}
- (string) printForm
{
return "<procedure>";
}
@end