Still grinding incrementally forward, through barbed wire entanglements.

Morale fading.
This commit is contained in:
Simon Brooke 2026-05-03 17:26:53 +01:00
parent ab0ea09bd4
commit 92490ebd5f
9 changed files with 104 additions and 48 deletions

View file

@ -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 );