New exception type: system-error.

* lib.c (system_error_s): New symbol variable.
(obj_init): Initialize new variable.

* lib.h (system_error_s): Declared.

* unwind.c (uw_init): Register system-error exception type.

1 files changed, 2 insertions, 0 deletions

diff --git a/lib.c b/lib.c
index 65394f76..71a9c991 100644
--- a/lib.c
+++ b/lib.c
@@ -94,6 +94,7 @@ val eof_s, eol_s, assert_s;
 val error_s, type_error_s, internal_error_s;
 val numeric_error_s, range_error_s;
 val query_error_s, file_error_s, process_error_s, syntax_error_s;
+val system_error_s;
 val gensym_counter_s;
 
 val nothrow_k, args_k, colon_k, auto_k;
@@ -6894,6 +6895,7 @@ static void obj_init(void)
   file_error_s = intern(lit("file-error"), user_package);
   process_error_s = intern(lit("process-error"), user_package);
   syntax_error_s = intern(lit("syntax-error"), user_package);
+  system_error_s = intern(lit("system-error"), user_package);
   assert_s = intern(lit("assert"), user_package);
 
   args_k = intern(lit("args"), keyword_package);