quakeforge/ruamoko/scheme/Procedure.r

17 lines
210 B
R
Raw Normal View History

#include "Procedure.h"
#include "Machine.h"
@implementation Procedure
2011-02-14 13:39:43 +00:00
- (void) invokeOnMachine: (Machine *) m
{
[m procedure: self];
return;
}
- (string) printForm
{
return "<procedure>";
}
@end