Still doesn't compile, but I think excellent progress.
This commit is contained in:
parent
dbeb99759a
commit
aac4669a3d
34 changed files with 1128 additions and 673 deletions
|
|
@ -49,7 +49,7 @@ struct pso_pointer make_cons( struct pso_pointer frame_pointer,
|
|||
*/
|
||||
#define make_cons2(car,cdr) (cons(make_frame(2, frame_pointer, car, cdr)))
|
||||
|
||||
#define c_car(p)(consp(p) ? pointer_to_object(p)->payload.cons.car : nil)
|
||||
#define c_cdr(p)(consp(p) ? pointer_to_object(p)->payload.cons.cdr : nil)
|
||||
#define c_car(p)(sequencep(p) ? pointer_to_object(p)->payload.cons.car : nil)
|
||||
#define c_cdr(p)(sequencep(p) ? pointer_to_object(p)->payload.cons.cdr : nil)
|
||||
|
||||
#endif
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue