From af21e506efbf22884d5eb30fb1cbb504afe43a51 Mon Sep 17 00:00:00 2001 From: Simon Brooke Date: Wed, 25 Feb 2026 22:16:14 +0000 Subject: [PATCH] Whoops! Had the wrong debug tag on debug calls in equal.c --- src/ops/equal.c | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/ops/equal.c b/src/ops/equal.c index fca8f61..cdfabbf 100644 --- a/src/ops/equal.c +++ b/src/ops/equal.c @@ -383,11 +383,11 @@ bool equal( struct cons_pointer a, struct cons_pointer b ) { } #ifdef DEBUG - debug_print( L"Comparing '", DEBUG_LAMBDA); - debug_print( a_buff, DEBUG_LAMBDA); - debug_print( L"' to '", DEBUG_LAMBDA); - debug_print( b_buff, DEBUG_LAMBDA); - debug_print( L"'\n", DEBUG_LAMBDA); + debug_print( L"Comparing '", DEBUG_ARITH); + debug_print( a_buff, DEBUG_ARITH); + debug_print( L"' to '", DEBUG_ARITH); + debug_print( b_buff, DEBUG_ARITH); + debug_print( L"'\n", DEBUG_ARITH); #endif /* OK, now we have wchar string buffers loaded from the objects. We @@ -420,7 +420,7 @@ bool equal( struct cons_pointer a, struct cons_pointer b ) { * I'll ignore them, too, for now. */ - debug_printf( DEBUG_LAMBDA, L"\nequal returning %d\n", result ); + debug_printf( DEBUG_ARITH, L"\nequal returning %d\n", result ); return result; }