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/deprecation.c | |
| parent | b2b33168b18c6c4fd65b0e77becba1a66a00dae1 (diff) | |
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/deprecation.c')
| -rw-r--r-- | libguile/deprecation.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/deprecation.c b/libguile/deprecation.c index 192667dde..be5fffc90 100644 --- a/libguile/deprecation.c +++ b/libguile/deprecation.c @@ -128,7 +128,7 @@ SCM_DEFINE(scm_issue_deprecation_warning, char *c_msgs; while (scm_is_pair (msgs)) { - if (msgs_nl != SCM_EOL) + if (!scm_is_null (msgs_nl)) msgs_nl = scm_cons (nl, msgs_nl); msgs_nl = scm_cons (SCM_CAR (msgs), msgs_nl); msgs = SCM_CDR (msgs); |