diff options
Diffstat (limited to 'libguile/posix.c')
-rw-r--r-- | libguile/posix.c | 34 |
1 files changed, 17 insertions, 17 deletions
diff --git a/libguile/posix.c b/libguile/posix.c index 15b38e79c..2923dc6f8 100644 --- a/libguile/posix.c +++ b/libguile/posix.c @@ -511,63 +511,63 @@ scm_to_resource (SCM s, const char *func, int pos) SCM_ASSERT_TYPE (scm_is_symbol (s), s, pos, func, "symbol"); #ifdef RLIMIT_AS - if (s == sym_as) + if (scm_is_eq (s, sym_as)) return RLIMIT_AS; #endif #ifdef RLIMIT_CORE - if (s == sym_core) + if (scm_is_eq (s, sym_core)) return RLIMIT_CORE; #endif #ifdef RLIMIT_CPU - if (s == sym_cpu) + if (scm_is_eq (s, sym_cpu)) return RLIMIT_CPU; #endif #ifdef RLIMIT_DATA - if (s == sym_data) + if (scm_is_eq (s, sym_data)) return RLIMIT_DATA; #endif #ifdef RLIMIT_FSIZE - if (s == sym_fsize) + if (scm_is_eq (s, sym_fsize)) return RLIMIT_FSIZE; #endif #ifdef RLIMIT_MEMLOCK - if (s == sym_memlock) + if (scm_is_eq (s, sym_memlock)) return RLIMIT_MEMLOCK; #endif #ifdef RLIMIT_MSGQUEUE - if (s == sym_msgqueue) + if (scm_is_eq (s, sym_msgqueue)) return RLIMIT_MSGQUEUE; #endif #ifdef RLIMIT_NICE - if (s == sym_nice) + if (scm_is_eq (s, sym_nice)) return RLIMIT_NICE; #endif #ifdef RLIMIT_NOFILE - if (s == sym_nofile) + if (scm_is_eq (s, sym_nofile)) return RLIMIT_NOFILE; #endif #ifdef RLIMIT_NPROC - if (s == sym_nproc) + if (scm_is_eq (s, sym_nproc)) return RLIMIT_NPROC; #endif #ifdef RLIMIT_RSS - if (s == sym_rss) + if (scm_is_eq (s, sym_rss)) return RLIMIT_RSS; #endif #ifdef RLIMIT_RTPRIO - if (s == sym_rtprio) + if (scm_is_eq (s, sym_rtprio)) return RLIMIT_RTPRIO; #endif #ifdef RLIMIT_RTPRIO - if (s == sym_rttime) + if (scm_is_eq (s, sym_rttime)) return RLIMIT_RTPRIO; #endif #ifdef RLIMIT_SIGPENDING - if (s == sym_sigpending) + if (scm_is_eq (s, sym_sigpending)) return RLIMIT_SIGPENDING; #endif #ifdef RLIMIT_STACK - if (s == sym_stack) + if (scm_is_eq (s, sym_stack)) return RLIMIT_STACK; #endif @@ -615,8 +615,8 @@ SCM_DEFINE (scm_setrlimit, "setrlimit", 3, 0, 0, iresource = scm_to_resource (resource, FUNC_NAME, 1); - lim.rlim_cur = (soft == SCM_BOOL_F) ? RLIM_INFINITY : scm_to_long (soft); - lim.rlim_max = (hard == SCM_BOOL_F) ? RLIM_INFINITY : scm_to_long (hard); + lim.rlim_cur = scm_is_false (soft) ? RLIM_INFINITY : scm_to_long (soft); + lim.rlim_max = scm_is_false (hard) ? RLIM_INFINITY : scm_to_long (hard); if (setrlimit (iresource, &lim) != 0) scm_syserror (FUNC_NAME); |