summaryrefslogtreecommitdiffstats
path: root/eval.c
diff options
context:
space:
mode:
Diffstat (limited to 'eval.c')
-rw-r--r--eval.c6
1 files changed, 6 insertions, 0 deletions
diff --git a/eval.c b/eval.c
index 06963cc3..c66ddbef 100644
--- a/eval.c
+++ b/eval.c
@@ -3295,17 +3295,21 @@ static val usleep_wrap(val usec)
}
#if HAVE_UNISTD_H
+
static val getpid_wrap(void)
{
return num(getpid());
}
+#if HAVE_GETPPID
static val getppid_wrap(void)
{
return num(getppid());
}
#endif
+#endif
+
static val env_hash(void)
{
val env_strings = env();
@@ -4011,8 +4015,10 @@ void eval_init(void)
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));
+#if HAVE_GETPPID
reg_fun(intern(lit("getppid"), user_package), func_n0(getppid_wrap));
#endif
+#endif
reg_fun(intern(lit("env"), user_package), func_n0(env));
reg_fun(intern(lit("env-hash"), user_package), func_n0(env_hash));