From 393baa8a4418ff404c6305fe84016fe3ed73da55 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Fri, 13 May 2011 13:04:49 +0200 Subject: 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. --- libguile/deprecation.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'libguile/deprecation.c') 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); -- cgit v1.2.3