Things working much better now. assoc works. Currently printing of
string-like-things does not work, but I suspect that's shallow.
This commit is contained in:
parent
02a4bc3e28
commit
9a0f186f29
13 changed files with 400 additions and 38 deletions
|
|
@ -50,7 +50,7 @@ struct pso_pointer c_cons( struct pso_pointer car, struct pso_pointer cdr ) {
|
|||
*/
|
||||
struct pso_pointer c_car( struct pso_pointer cons ) {
|
||||
struct pso_pointer result = nil;
|
||||
struct pso2 *object = pointer_to_object( result );
|
||||
struct pso2 *object = pointer_to_object( cons );
|
||||
|
||||
if ( consp( cons ) ) {
|
||||
result = object->payload.cons.car;
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue