Well, I'm back to the same failed unit tests as the develop branch
and I *feel* that the intern code is better. But it's not without problems and I don't think I can release at this. But it may be ready to merge back.
This commit is contained in:
parent
bcb227a5f9
commit
3a1f64d7ff
15 changed files with 284 additions and 184 deletions
19
src/debug.c
19
src/debug.c
|
|
@ -32,6 +32,25 @@
|
|||
*/
|
||||
int verbosity = 0;
|
||||
|
||||
/**
|
||||
* When debugging, we want to see exceptions as they happen, because they may
|
||||
* not make their way back down the stack to whatever is expected to handle
|
||||
* them.
|
||||
*/
|
||||
void debug_print_exception( struct cons_pointer ex_ptr ) {
|
||||
#ifdef DEBUG
|
||||
if ( ( verbosity != 0 ) && exceptionp( ex_ptr ) ) {
|
||||
fwide( stderr, 1 );
|
||||
fputws( L"EXCEPTION: ", stderr );
|
||||
|
||||
URL_FILE *ustderr = file_to_url_file( stderr );
|
||||
fwide( stderr, 1 );
|
||||
print( ustderr, ex_ptr );
|
||||
free( ustderr );
|
||||
}
|
||||
#endif
|
||||
}
|
||||
|
||||
/**
|
||||
* @brief print this debug `message` to stderr, if `verbosity` matches `level`.
|
||||
*
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue