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.

1 files changed, 1 insertions, 1 deletions

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;