quakeforge/ruamoko/scheme/Cons.h

22 lines
548 B
C
Raw Normal View History

#ifndef __Cons_h
#define __Cons_h
#include "SchemeObject.h"
@interface Cons: SchemeObject
{
SchemeObject []car, cdr;
}
+ (id) newWithCar: (SchemeObject []) a cdr: (SchemeObject []) d;
- (id) initWithCar: (SchemeObject []) a cdr: (SchemeObject []) d;
- (SchemeObject []) car;
- (void) car: (SchemeObject []) a;
- (SchemeObject []) cdr;
- (void) cdr: (SchemeObject []) d;
@end
@extern Cons []cons (SchemeObject []car, SchemeObject []cdr);
@extern BOOL isList (SchemeObject []ls);
@extern integer length (SchemeObject []foo);
#endif //__Cons_h