diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2013-12-10 21:38:29 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2013-12-10 21:38:29 -0800 |
| commit | 8d40832158ca90f560b13e75988049db13c62fe0 (patch) | |
| tree | b167b74eb94d3fdbe9b10929eb482dd1074d57cc /eval.c | |
| parent | a38be95bed7fb5944bb9e7263a14583acd0f7810 (diff) | |
| download | txr-8d40832158ca90f560b13e75988049db13c62fe0.tar.gz txr-8d40832158ca90f560b13e75988049db13c62fe0.tar.bz2 txr-8d40832158ca90f560b13e75988049db13c62fe0.zip | |
* eval.c (eval_init): closelog_wrap interned.
* syslog.c (closelog_wrap): New function.
* syslog.h (closelog_wrap): Declared.
* txr.1: Documented.
Diffstat (limited to 'eval.c')
| -rw-r--r-- | eval.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -2593,6 +2593,7 @@ void eval_init(void) reg_var(intern(lit("log-info"), user_package), &log_info_v); reg_var(intern(lit("log-debug"), user_package), &log_debug_v); reg_fun(intern(lit("openlog"), user_package), func_n3o(openlog_wrap, 1)); + reg_fun(intern(lit("closelog"), user_package), func_n0(closelog_wrap)); reg_fun(intern(lit("setlogmask"), user_package), func_n1(setlogmask_wrap)); reg_fun(intern(lit("syslog"), user_package), func_n2v(syslog_wrap)); #endif |