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, 0 deletions

diff --git a/unwind.c b/unwind.c
index 7495be1e..9e0de39e 100644
--- a/unwind.c
+++ b/unwind.c
@@ -903,6 +903,7 @@ void uw_init(void)
   exception_subtypes = cons(cons(t, nil), exception_subtypes);
   uw_register_subtype(type_error_s, error_s);
   uw_register_subtype(internal_error_s, error_s);
+  uw_register_subtype(panic_s, error_s);
   uw_register_subtype(numeric_error_s, error_s);
   uw_register_subtype(range_error_s, error_s);
   uw_register_subtype(query_error_s, error_s);