From 7a3280106d04624a00bddb5abdf74485b9d0dee7 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sat, 7 May 2016 18:19:31 -0700 Subject: Adding panic macro, which throws a panic exception. * lib.c (panic_s): New symbol variable. (obj_init): Initialize panic_s. * lib.h (panic_s): Declared. * unwind.c (uw_init): Register panic exception. * unwind.h (panic): New macro. --- lib.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib.h') diff --git a/lib.h b/lib.h index e84e5eac..3dc75d61 100644 --- a/lib.h +++ b/lib.h @@ -426,7 +426,7 @@ extern val repeat_s, rep_s, flatten_s, forget_s; extern val local_s, merge_s, bind_s, rebind_s, cat_s; extern val try_s, catch_s, finally_s, throw_s, defex_s, deffilter_s; extern val eof_s, eol_s, assert_s, name_s; -extern val error_s, type_error_s, internal_error_s; +extern val error_s, type_error_s, internal_error_s, panic_s; extern val numeric_error_s, range_error_s; extern val query_error_s, file_error_s, process_error_s, syntax_error_s; extern val system_error_s, timeout_error_s; -- cgit v1.2.3