Fixed runaway recursion in cond. However, let is still segfaulting, and member
does not work correctly.
This commit is contained in:
parent
d34d891211
commit
8c63272214
12 changed files with 358 additions and 156 deletions
16
src/debug.c
16
src/debug.c
|
|
@ -143,3 +143,19 @@ void debug_dump_object( struct cons_pointer pointer, int level ) {
|
|||
}
|
||||
#endif
|
||||
}
|
||||
|
||||
/**
|
||||
* Standardise printing of binding trace messages.
|
||||
*/
|
||||
void debug_print_binding( struct cons_pointer key, struct cons_pointer val, bool deep, int level) {
|
||||
#ifdef DEBUG
|
||||
// wchar_t * depth = (deep ? L"Deep" : L"Shallow");
|
||||
|
||||
debug_print( (deep ? L"Deep" : L"Shallow"), level);
|
||||
debug_print( L" binding `", level);
|
||||
debug_print_object( key, level);
|
||||
debug_print( L"` to `", level);
|
||||
debug_print_object( val, level);
|
||||
debug_print( L"`\n", level);
|
||||
#endif
|
||||
}
|
||||
Loading…
Add table
Add a link
Reference in a new issue