quakeforge/ruamoko/scheme/Primitive.h

#ifndef __Primitive_h
#define __Primitive_h
#include "Procedure.h"
#include "Machine.h"

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
Initial commit of a future partial implementation of the R5RS Scheme standard, implemented in Ruamoko. Currently works for a few simple "Hello, world!" programs. 2005-05-01 11:48:36 +00:00			`#ifndef __Primitive_h`
			`#define __Primitive_h`
			`#include "Procedure.h"`
			`#include "Machine.h"`

Syntax fixes for ruamoko/scheme. 2011-02-14 13:39:43 +00:00			`typedef SchemeObject primfunc_t (SchemeObject args, Machine *m);`
Initial commit of a future partial implementation of the R5RS Scheme standard, implemented in Ruamoko. Currently works for a few simple "Hello, world!" programs. 2005-05-01 11:48:36 +00:00
			`@interface Primitive: Procedure`
			`{`
			`primfunc_t func;`
			`}`
			`+ (id) newFromFunc: (primfunc_t) f;`
			`- (id) initWithFunc: (primfunc_t) f;`
			`@end`

			`#endif //__Procedure_h`