summaryrefslogtreecommitdiff
path: root/libguile/options.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2011-10-24 18:13:51 +0200
committerAndy Wingo <wingo@pobox.com>2011-10-24 18:55:43 +0200
commit8c5bb72920a41d165726a1b5a610d823971f1ca8 (patch)
treeed9e8b3b2ff7d617557a6c5796f088b509e910ec /libguile/options.c
parentfdecb44f3252e47ee98d95f3fe473ff898ddf27e (diff)
downloadguile-8c5bb72920a41d165726a1b5a610d823971f1ca8.tar.gz
add SCM_HEAP_OBJECT_P
* libguile/tags.h (SCM_HEAP_OBJECT_P): New macro, an alias for SCM_NIMP. * libguile/arrays.c: * libguile/debug.c: * libguile/foreign.c: * libguile/gdbint.c: * libguile/guardians.c: * libguile/list.c: * libguile/modules.c: * libguile/options.c: * libguile/smob.c: * libguile/validate.h: * libguile/weak-set.c: * libguile/weak-table.c: * libguile/weak-vector.c: Use it instead of SCM_NIMP or !SCM_IMP.
Diffstat (limited to 'libguile/options.c')
-rw-r--r--libguile/options.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/options.c b/libguile/options.c
index 0e083143c..286d9e109 100644
--- a/libguile/options.c
+++ b/libguile/options.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 1995,1996,1998,2000,2001, 2006, 2008, 2009, 2010 Free Software Foundation
+/* Copyright (C) 1995,1996,1998,2000,2001, 2006, 2008, 2009, 2010, 2011 Free Software Foundation
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public License
@@ -231,9 +231,9 @@ change_option_setting (SCM args, scm_t_option options[], const char *s,
{
SCM old = SCM_PACK (options[i].val);
SCM new = SCM_PACK (flags[i]);
- if (!SCM_IMP (old))
+ if (SCM_HEAP_OBJECT_P (old))
protected_objects = scm_delq1_x (old, protected_objects);
- if (!SCM_IMP (new))
+ if (SCM_HEAP_OBJECT_P (new))
protected_objects = scm_cons (new, protected_objects);
}
options[i].val = flags[i];