diff options
Diffstat (limited to 'eval.c')
-rw-r--r-- | eval.c | 6 |
1 files changed, 6 insertions, 0 deletions
@@ -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)); |