* sysif.c (abort_wrap): New static function.

(sysif_init): Registered abort intrinsic.

* txr.1: Documented abort. Changed Unix Programming heading
to System Programming, since exit, abort and errno are not
Unix-specific, but C-specific.

* tl.vim, txr.vim: Updated.

1 files changed, 6 insertions, 0 deletions

diff --git a/sysif.c b/sysif.c
index 322d93e2..c401b23a 100644
--- a/sysif.c
+++ b/sysif.c
@@ -93,6 +93,11 @@ static val exit_wrap(val status)
   return nil;
 }
 
+static val abort_wrap(void)
+{
+  abort();
+}
+
 static val usleep_wrap(val usec)
 {
   val retval;
@@ -365,6 +370,7 @@ void sysif_init(void)
 {
   reg_fun(intern(lit("errno"), user_package), func_n1o(errno_wrap, 0));
   reg_fun(intern(lit("exit"), user_package), func_n1(exit_wrap));
+  reg_fun(intern(lit("abort"), user_package), func_n0(abort_wrap));
   reg_fun(intern(lit("usleep"), user_package), func_n1(usleep_wrap));
 #if HAVE_UNISTD_H
   reg_fun(intern(lit("getpid"), user_package), func_n0(getpid_wrap));