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/goops.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/goops.c')
-rw-r--r-- | libguile/goops.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/libguile/goops.c b/libguile/goops.c index 33933965c..899ba7329 100644 --- a/libguile/goops.c +++ b/libguile/goops.c @@ -1702,7 +1702,7 @@ static SCM make_dispatch_procedure (SCM gf) { static SCM var = SCM_BOOL_F; - if (var == SCM_BOOL_F) + if (scm_is_false (var)) var = scm_module_variable (scm_c_resolve_module ("oop goops dispatch"), sym_delayed_compile); return scm_call_1 (SCM_VARIABLE_REF (var), gf); @@ -2519,7 +2519,7 @@ static SCM make_class_from_symbol (SCM type_name_sym, SCM supers, int applicablep) { SCM class, name; - if (type_name_sym != SCM_BOOL_F) + if (scm_is_true (type_name_sym)) { name = scm_string_append (scm_list_3 (scm_from_locale_string ("<"), scm_symbol_to_string (type_name_sym), @@ -2601,12 +2601,12 @@ create_smob_classes (void) long i; for (i = 0; i < SCM_I_MAX_SMOB_TYPE_COUNT; ++i) - scm_smob_class[i] = 0; + scm_smob_class[i] = SCM_BOOL_F; scm_smob_class[SCM_TC2SMOBNUM (scm_tc16_keyword)] = scm_class_keyword; for (i = 0; i < scm_numsmob; ++i) - if (!scm_smob_class[i]) + if (scm_is_false (scm_smob_class[i])) scm_smob_class[i] = scm_make_extended_class (SCM_SMOBNAME (i), scm_smobs[i].apply != 0); } |