31 lines
443 B
C
31 lines
443 B
C
typedef struct {
|
|
CELL car;
|
|
CELL cdr;
|
|
} F_CONS;
|
|
|
|
INLINE F_CONS* untag_cons(CELL tagged)
|
|
{
|
|
type_check(CONS_TYPE,tagged);
|
|
return (F_CONS*)UNTAG(tagged);
|
|
}
|
|
|
|
INLINE CELL tag_cons(F_CONS* cons)
|
|
{
|
|
return RETAG(cons,CONS_TYPE);
|
|
}
|
|
|
|
CELL cons(CELL car, CELL cdr);
|
|
|
|
INLINE CELL car(CELL cons)
|
|
{
|
|
return untag_cons(cons)->car;
|
|
}
|
|
|
|
INLINE CELL cdr(CELL cons)
|
|
{
|
|
return untag_cons(cons)->cdr;
|
|
}
|
|
|
|
void primitive_cons(void);
|
|
void primitive_to_cons(void);
|