Adding raise function.

* signal.c (raise_wrap): New static function
(sig_init): Register raise intrinsic.

* txr.1: Documented raise.

1 files changed, 7 insertions, 0 deletions

diff --git a/signal.c b/signal.c
index 220b81e6..e5649f7a 100644
--- a/signal.c
+++ b/signal.c
@@ -116,6 +116,12 @@ static val kill_wrap(val pid, val sig)
   return num(kill(p, s));
 }
 
+static val raise_wrap(val sig)
+{
+  int res = raise(c_num(sig));
+  return tnil(res == 0);
+}
+
 void sig_init(void)
 {
   int i;
@@ -188,6 +194,7 @@ void sig_init(void)
   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_fun(intern(lit("kill"), user_package), func_n2o(kill_wrap, 1));
+  reg_fun(intern(lit("raise"), user_package), func_n1(raise_wrap));
 
   sig_reload_cache();
 }