diff options
author | Kaz Kyheku <kaz@kylheku.com> | 2020-01-30 00:05:40 -0800 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2020-01-30 00:05:40 -0800 |
commit | a6e837526bf5052ef6292860784b786e5c720f0a (patch) | |
tree | f553d7e3bf6c3a67805daab2f3cd6b6633b0b8d4 /unwind.c | |
parent | f7b694183157b674abf68df1b830cadd93e18cdd (diff) | |
download | txr-a6e837526bf5052ef6292860784b786e5c720f0a.tar.gz txr-a6e837526bf5052ef6292860784b786e5c720f0a.tar.bz2 txr-a6e837526bf5052ef6292860784b786e5c720f0a.zip |
New retry and skip exceptions under restart hierarchy.
* unwind.c (uw_late_init): Register retry and skip symbols
as exception subtypes of restart.
* txr.1: Document retry and skip restarts.
Diffstat (limited to 'unwind.c')
-rw-r--r-- | unwind.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -1314,6 +1314,8 @@ void uw_late_init(void) reg_fun(intern(lit("find-frames-by-mask"), user_package), func_n1(uw_find_frames_by_mask)); #endif uw_register_subtype(continue_s, restart_s); + uw_register_subtype(intern(lit("retry"), user_package), restart_s); + uw_register_subtype(skip_s, restart_s); uw_register_subtype(warning_s, t); uw_register_subtype(defr_warning_s, warning_s); } |