Still grinding incrementally forward, through barbed wire entanglements.
Morale fading.
This commit is contained in:
parent
ab0ea09bd4
commit
92490ebd5f
9 changed files with 104 additions and 48 deletions
|
|
@ -30,7 +30,7 @@ struct pso_pointer lisp_mapcar( struct pso_pointer frame_pointer ) {
|
|||
for ( struct pso_pointer c = frame->payload.stack_frame.arg[1]; c_truep( c );
|
||||
c = c_cdr( c ) ) {
|
||||
struct pso_pointer expr =
|
||||
cons( frame->payload.stack_frame.arg[0], cons( c_car( c ), nil ) );
|
||||
cons( frame->payload.stack_frame.arg[0], make_cons( frame_pointer, c_car( c ), nil ) );
|
||||
|
||||
debug_printf( DEBUG_EVAL, 0, U"Mapcar %d, evaluating ", i );
|
||||
debug_print_object( expr, DEBUG_EVAL, 0 );
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue