* eval.c (eval_init): closelog_wrap interned.

* syslog.c (closelog_wrap): New function.

* syslog.h (closelog_wrap): Declared.

* txr.1: Documented.

1 files changed, 6 insertions, 0 deletions

diff --git a/syslog.c b/syslog.c
index 0bcd1cd3..840ccf09 100644
--- a/syslog.c
+++ b/syslog.c
@@ -112,6 +112,12 @@ val syslog_wrap(val prio, val fmt, val args)
   return nil;
 }
 
+val closelog_wrap(void)
+{
+  closelog();
+  return nil;
+}
+
 static void syslog_mark(val stream)
 {
   val stuff = (val) stream->co.handle;