* eval.c (eval_init): Registered vars for signal numbers.

* signal.c (sig_hup, sig_int, sig_quit, sig_ill, sig_trap, sig_abrt,
sig_bus, val sig_fpe, sig_kill, sig_usr1, sig_segv, sig_usr2, sig_pipe,
sig_alrm, val sig_term, sig_chld, sig_cont, sig_stop, sig_tstp,
sig_ttin, val sig_ttou, sig_urg, sig_xcpu, sig_xfsz, sigtalrm,
sig_prof, val sig_poll, sig_sys, sig_winch, sig_iot, sig_stkflt,
sig_io, sig_lost, sig_pwr): New variables.
(sig_init): New variables initialized.

* signal.h: New variables declared.

1 files changed, 46 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index f30e895f..b6b87657 100644
--- a/eval.c
+++ b/eval.c
@@ -2648,6 +2648,52 @@ void eval_init(void)
   reg_fun(intern(lit("set-sig-handler"), user_package), func_n2(set_sig_handler));
   reg_fun(intern(lit("get-sig-handler"), user_package), func_n1(get_sig_handler));
   reg_fun(intern(lit("sig-check"), user_package), func_n0(sig_check));
+  reg_var(intern(lit("sig-hup"), user_package), &sig_hup);
+  reg_var(intern(lit("sig-int"), user_package), &sig_int);
+  reg_var(intern(lit("sig-quit"), user_package), &sig_quit);
+  reg_var(intern(lit("sig-ill"), user_package), &sig_ill);
+  reg_var(intern(lit("sig-trap"), user_package), &sig_trap);
+  reg_var(intern(lit("sig-abrt"), user_package), &sig_abrt);
+  reg_var(intern(lit("sig-bus"), user_package), &sig_bus);
+  reg_var(intern(lit("sig-fpe"), user_package), &sig_fpe);
+  reg_var(intern(lit("sig-kill"), user_package), &sig_kill);
+  reg_var(intern(lit("sig-usr1"), user_package), &sig_usr1);
+  reg_var(intern(lit("sig-segv"), user_package), &sig_segv);
+  reg_var(intern(lit("sig-usr2"), user_package), &sig_usr2);
+  reg_var(intern(lit("sig-pipe"), user_package), &sig_pipe);
+  reg_var(intern(lit("sig-alrm"), user_package), &sig_alrm);
+  reg_var(intern(lit("sig-term"), user_package), &sig_term);
+  reg_var(intern(lit("sig-chld"), user_package), &sig_chld);
+  reg_var(intern(lit("sig-cont"), user_package), &sig_cont);
+  reg_var(intern(lit("sig-stop"), user_package), &sig_stop);
+  reg_var(intern(lit("sig-tstp"), user_package), &sig_tstp);
+  reg_var(intern(lit("sig-ttin"), user_package), &sig_ttin);
+  reg_var(intern(lit("sig-ttou"), user_package), &sig_ttou);
+  reg_var(intern(lit("sig-urg"), user_package), &sig_urg);
+  reg_var(intern(lit("sig-xcpu"), user_package), &sig_xcpu);
+  reg_var(intern(lit("sig-xfsz"), user_package), &sig_xfsz);
+  reg_var(intern(lit("sig-vtalrm"), user_package), &sigtalrm);
+  reg_var(intern(lit("sig-prof"), user_package), &sig_prof);
+  reg_var(intern(lit("sig-poll"), user_package), &sig_poll);
+  reg_var(intern(lit("sig-sys"), user_package), &sig_sys);
+#ifdef SIGWINCH
+  reg_var(intern(lit("sig-winch"), user_package), &sig_winch);
+#endif
+#ifdef SIGIOT
+  reg_var(intern(lit("sig-iot"), user_package), &sig_iot);
+#endif
+#ifdef SIGSTKFLT
+  reg_var(intern(lit("sig-stkflt"), user_package), &sig_stkflt);
+#endif
+#ifdef SIGIO
+  reg_var(intern(lit("sig-io"), user_package), &sig_io);
+#endif
+#ifdef SIGLOST
+  reg_var(intern(lit("sig-lost"), user_package), &sig_lost);
+#endif
+#ifdef SIGPWR
+  reg_var(intern(lit("sig-pwr"), user_package), &sig_pwr);
+#endif
 #endif
 
   reg_fun(intern(lit("source-loc"), user_package), func_n1(source_loc));