Working on the member? bug. No fix, but some improvements in debug message format.

The bug is actually either in `cond` or in `cdr`, but I'm finding it extremely hard
to trace.
This commit is contained in:
Simon Brooke 2026-03-18 11:53:48 +00:00
parent 109d400f00
commit 54a99b6796
3 changed files with 24 additions and 17 deletions

View file

@ -1261,11 +1261,15 @@ struct cons_pointer eval_cond_clause( struct cons_pointer clause,
env ) );
#ifdef DEBUG
debug_print( L"\n\t\tclause succeeded; returning: ", DEBUG_EVAL );
debug_print( L"\n\t\tCond clause ", DEBUG_EVAL);
debug_print_object( clause, DEBUG_EVAL);
debug_print( L" succeeded; returning: ", DEBUG_EVAL );
debug_print_object( result, DEBUG_EVAL );
debug_println( DEBUG_EVAL );
} else {
debug_print( L"\n\t\tclause failed.\n", DEBUG_EVAL );
debug_print( L"\n\t\tCond clause ", DEBUG_EVAL);
debug_print_object( clause, DEBUG_EVAL);
debug_print( L" failed.\n", DEBUG_EVAL );
#endif
}
} else {