diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2017-01-26 19:20:23 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2017-01-26 19:20:23 -0800 |
| commit | 466f2a5842b131b0d94b9a97e78da709920a2c06 (patch) | |
| tree | 43ad9b1b34f3ef22df692815277d635fc5e24eee /unwind.c | |
| parent | d11b2dce1ea83bd396a275d42096631a7976ea29 (diff) | |
| download | txr-466f2a5842b131b0d94b9a97e78da709920a2c06.tar.gz txr-466f2a5842b131b0d94b9a97e78da709920a2c06.tar.bz2 txr-466f2a5842b131b0d94b9a97e78da709920a2c06.zip | |
Expose defer-warning and dump-deferred-warnings.
* unwind.c (uw_late_init): Register defer-warning and
dump-deferred-warnings intrinsics.
* txr.1: Documented.
Diffstat (limited to 'unwind.c')
| -rw-r--r-- | unwind.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -1041,6 +1041,8 @@ void uw_late_init(void) func_n1(uw_purge_deferred_warning)); reg_fun(intern(lit("register-tentative-def"), user_package), func_n1(uw_register_tentative_def)); reg_fun(intern(lit("tentative-def-exists"), user_package), func_n1(uw_tentative_def_exists)); + reg_fun(intern(lit("defer-warning"), user_package), func_n1(uw_defer_warning)); + reg_fun(intern(lit("dump-deferred-warnings"), user_package), func_n1(uw_dump_deferred_warnings)); reg_fun(intern(lit("register-exception-subtypes"), user_package), func_n0v(register_exception_subtypes)); reg_fun(intern(lit("exception-subtype-p"), user_package), |