diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2013-12-12 07:26:13 -0800 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2013-12-12 07:26:13 -0800 |
commit | 8e493b2eaf671e962a55e13c17bf42c51a3fd2bd (patch) | |
tree | 982c1453e38cfd8226ac3221983cecd863d22210 /eval.c | |
parent | 986d9c78daa61375d23e30ce2441925c27bc4482 (diff) | |
download | txr-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.c | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -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); |