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/i18n.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/i18n.c')
| -rw-r--r-- | libguile/i18n.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/i18n.c b/libguile/i18n.c index 97ae4ef4c..cb6ab98ea 100644 --- a/libguile/i18n.c +++ b/libguile/i18n.c @@ -1591,7 +1591,7 @@ SCM_DEFINE (scm_nl_langinfo, "nl-langinfo", 1, 1, 0, if (*p == 0) { /* Cyclic grouping information. */ - if (last_pair != SCM_EOL) + if (!scm_is_null (last_pair)) SCM_SETCDR (last_pair, result); } } |