quakeforge/ruamoko/scheme/Primitive.h

17 lines
316 B
C
Raw Normal View History

#ifndef __Primitive_h
#define __Primitive_h
#include "Procedure.h"
#include "Machine.h"
2011-02-14 13:39:43 +00:00
typedef SchemeObject *primfunc_t (SchemeObject *args, Machine *m);
@interface Primitive: Procedure
{
primfunc_t func;
}
+ (id) newFromFunc: (primfunc_t) f;
- (id) initWithFunc: (primfunc_t) f;
@end
#endif //__Procedure_h