summaryrefslogtreecommitdiffstats
path: root/eval.c
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2013-12-12 07:26:13 -0800
committerKaz Kylheku <kaz@kylheku.com>2013-12-12 07:26:13 -0800
commit8e493b2eaf671e962a55e13c17bf42c51a3fd2bd (patch)
tree982c1453e38cfd8226ac3221983cecd863d22210 /eval.c
parent986d9c78daa61375d23e30ce2441925c27bc4482 (diff)
downloadtxr-8e493b2eaf671e962a55e13c17bf42c51a3fd2bd.tar.gz
txr-8e493b2eaf671e962a55e13c17bf42c51a3fd2bd.tar.bz2
txr-8e493b2eaf671e962a55e13c17bf42c51a3fd2bd.zip
* configure: Fix warnings in test cases for HAVE_FORK_STUFF
and HAVE_DAEMON. * eval.c: daemon support must be wrapped in #if HAVE_DAEMON
Diffstat (limited to 'eval.c')
-rw-r--r--eval.c4
1 files changed, 4 insertions, 0 deletions
diff --git a/eval.c b/eval.c
index d3129126..cd40a888 100644
--- a/eval.c
+++ b/eval.c
@@ -2087,11 +2087,13 @@ static val errno_wrap(val newval)
return oldval;
}
+#if HAVE_DAEMON
static val daemon_wrap(val nochdir, val noclose)
{
int result = daemon(nochdir ? 1 : 0, noclose ? 1 : 0);
return result == 0 ? t : nil;
}
+#endif
static void reg_fun(val sym, val fun)
{
@@ -2589,7 +2591,9 @@ void eval_init(void)
reg_fun(intern(lit("make-time-utc"), user_package), func_n7(make_time_utc));
reg_fun(intern(lit("errno"), user_package), func_n1o(errno_wrap, 0));
+#if HAVE_DAEMON
reg_fun(intern(lit("daemon"), user_package), func_n2(daemon_wrap));
+#endif
#if HAVE_SYSLOG
reg_var(intern(lit("log-pid"), user_package), &log_pid_v);