Very, very nearly ready for 0.0.6. Too tired to press the burron tonight.
This commit is contained in:
parent
b720211b7b
commit
1900bca706
29 changed files with 567 additions and 800 deletions
17
src/debug.c
17
src/debug.c
|
|
@ -147,15 +147,16 @@ void debug_dump_object( struct cons_pointer pointer, int level ) {
|
|||
/**
|
||||
* Standardise printing of binding trace messages.
|
||||
*/
|
||||
void debug_print_binding( struct cons_pointer key, struct cons_pointer val, bool deep, int level) {
|
||||
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);
|
||||
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