quakeforge/ruamoko/scheme/Procedure.r

#include "Procedure.h"

@implementation Procedure
- (void) invokeOnMachine: (Machine) m
{
    [m procedure: self];
    return;
}

- (string) printForm
{
    return "<procedure>";
}

@end