mirror of
https://git.code.sf.net/p/quake/quakeforge
synced 2024-11-11 07:42:18 +00:00
e8680d792e
Scheme program errors without making Rua abort now, although there are a few things that still need to actually report errors instead of failing in weird ways.
20 lines
469 B
Objective-C
20 lines
469 B
Objective-C
#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);
|
|
|
|
#endif //__Cons_h
|