diff options
author | Andy Wingo <wingo@pobox.com> | 2011-05-13 13:04:49 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2011-05-13 15:28:41 +0200 |
commit | 393baa8a4418ff404c6305fe84016fe3ed73da55 (patch) | |
tree | 19b01969365910d325510f436e689dfd5d0a1d7c /libguile/eval.c | |
parent | b2b33168b18c6c4fd65b0e77becba1a66a00dae1 (diff) | |
download | guile-393baa8a4418ff404c6305fe84016fe3ed73da55.tar.gz |
scm_is_false instead of == SCM_BOOL_F; also is_null, is_true, etc
* libguile/deprecation.c (scm_issue_deprecation_warning)
* libguile/eval.c (CAPTURE_ENV):
* libguile/goops.c (make_dispatch_procedure, make_class_from_symbol):
(create_smob_classes):
* libguile/guardians.c (finalize_guarded, scm_i_get_one_zombie):
* libguile/hashtab.c (scm_fixup_weak_alist, scm_internal_hash_fold):
* libguile/i18n.c (scm_nl_langinfo)
* libguile/load.c (scm_primitive_load)
* libguile/posix.c (scm_setrlimit)
* libguile/socket.c (scm_to_sockaddr):
* libguile/srcprop.c (scm_make_srcprops): Use scm_is_false / scm_is_true
/ scm_is_null instead of comparing against SCM_BOOL_F et al.
Diffstat (limited to 'libguile/eval.c')
-rw-r--r-- | libguile/eval.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/eval.c b/libguile/eval.c index 0101f019e..e008b3a08 100644 --- a/libguile/eval.c +++ b/libguile/eval.c @@ -211,8 +211,8 @@ truncate_values (SCM x) case, because further lexical contours should capture the current module. */ #define CAPTURE_ENV(env) \ - ((env == SCM_EOL) ? scm_current_module () : \ - ((env == SCM_BOOL_F) ? scm_the_root_module () : env)) + (scm_is_null (env) ? scm_current_module () : \ + (scm_is_false (env) ? scm_the_root_module () : env)) static SCM eval (SCM x, SCM env) |