quakeforge/ruamoko/scheme/Cons.h

22 lines
531 B
C
Raw Normal View History

#ifndef __Cons_h
#define __Cons_h
#include "SchemeObject.h"
@interface Cons: SchemeObject
{
2011-02-14 13:39:43 +00:00
SchemeObject *car, *cdr;
}
2011-02-14 13:39:43 +00:00
+ (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
2011-02-14 13:39:43 +00:00
@extern Cons *cons (SchemeObject *car, SchemeObject *cdr);
@extern BOOL isList (SchemeObject *ls);
@extern int length (SchemeObject *foo);
#endif //__Cons_h