diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2017-01-15 15:11:25 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2017-01-15 15:11:25 -0800 |
| commit | 06b285ac2c60fd5f8dd5eee24c794d7ef21fee46 (patch) | |
| tree | c78baf400f6358cee1de8dc748578c246497d669 /unwind.c | |
| parent | 29e448c01f92b1fe54511bdaf5564c774a91cb09 (diff) | |
| download | txr-06b285ac2c60fd5f8dd5eee24c794d7ef21fee46.tar.gz txr-06b285ac2c60fd5f8dd5eee24c794d7ef21fee46.tar.bz2 txr-06b285ac2c60fd5f8dd5eee24c794d7ef21fee46.zip | |
Functions for error reporting out of macros.
* eval.c (eval_init): Register sys:ctx-form and sys:ctx-name
intrinsics.
* lisplib.c (error_set_entries, error_instantiate): New static
functions.
(lisplib_init): Register autoloading of error.tl via
new functions.
* share/txr/stdlib/error.tl: New file.
* struct.c (make_struct_type): Purge deferred warnings.
* unwind.c (uw_late_init): Register purge-deferred-warning
intrinsic.
Diffstat (limited to 'unwind.c')
| -rw-r--r-- | unwind.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -1022,6 +1022,8 @@ void uw_late_init(void) reg_fun(throw_s, func_n1v(uw_throwv)); reg_fun(intern(lit("throwf"), user_package), func_n2v(uw_throwfv)); reg_fun(error_s, func_n1v(uw_errorfv)); + reg_fun(intern(lit("purge-deferred-warning"), user_package), + func_n1(uw_purge_deferred_warning)); reg_fun(intern(lit("register-exception-subtypes"), user_package), func_n0v(register_exception_subtypes)); reg_fun(intern(lit("exception-subtype-p"), user_package), |