2005-05-01 11:48:36 +00:00
|
|
|
#include "Procedure.h"
|
2010-12-16 11:01:49 +00:00
|
|
|
#include "Machine.h"
|
2005-05-01 11:48:36 +00:00
|
|
|
|
|
|
|
@implementation Procedure
|
2011-02-14 13:39:43 +00:00
|
|
|
- (void) invokeOnMachine: (Machine *) m
|
2005-05-01 11:48:36 +00:00
|
|
|
{
|
2005-05-06 23:25:06 +00:00
|
|
|
[m procedure: self];
|
2005-05-01 11:48:36 +00:00
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
|
|
|
- (string) printForm
|
|
|
|
{
|
|
|
|
return "<procedure>";
|
|
|
|
}
|
|
|
|
|
|
|
|
@end
|