No getppid on MinGW.

* configure: Add test for getppid.

* eval.c (getppid_wrap, eval_init): use HAVE_GETPPID

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));