quakeforge/ruamoko/scheme/Procedure.r
2011-02-14 23:10:46 +09:00

16 lines
210 B
R

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