From a6e837526bf5052ef6292860784b786e5c720f0a Mon Sep 17 00:00:00 2001 From: Kaz Kyheku Date: Thu, 30 Jan 2020 00:05:40 -0800 Subject: 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. --- unwind.c | 2 ++ 1 file changed, 2 insertions(+) (limited to 'unwind.c') diff --git a/unwind.c b/unwind.c index 0ac44798..478ac5a4 100644 --- a/unwind.c +++ b/unwind.c @@ -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); } -- cgit v1.2.3