mirror of
https://git.code.sf.net/p/quake/quakeforge
synced 2024-11-10 23:32:09 +00:00
17 lines
313 B
C
17 lines
313 B
C
|
#ifndef __Primitive_h
|
||
|
|
#define __Primitive_h
|
||
|
|
#include "Procedure.h"
|
||
|
|
#include "Machine.h"
|
||
|
|
|
||
|
|
typedef SchemeObject (SchemeObject args, Machine m) primfunc_t;
|
||
|
|
|
||
|
|
@interface Primitive: Procedure
|
||
|
|
{
|
||
|
|
primfunc_t func;
|
||
|
|
}
|
||
|
|
+ (id) newFromFunc: (primfunc_t) f;
|
||
|
|
- (id) initWithFunc: (primfunc_t) f;
|
||
|
|
@end
|
||
|
|
|
||
|
|
#endif //__Procedure_h
|