summaryrefslogtreecommitdiff
path: root/libguile/gc-mark.c
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2004-09-22 17:41:37 +0000
committerMarius Vollmer <mvo@zagadka.de>2004-09-22 17:41:37 +0000
commitd2e53ed6f84df8c79f4bf5cf41d4f6d381bc065b (patch)
treedf14a633c6d8ac08ba098651a9164a0c991d8288 /libguile/gc-mark.c
parenta61f4e0c61695e17984b25b16fbf720b851b739c (diff)
downloadguile-d2e53ed6f84df8c79f4bf5cf41d4f6d381bc065b.tar.gz
*** empty log message ***
Diffstat (limited to 'libguile/gc-mark.c')
-rw-r--r--libguile/gc-mark.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/gc-mark.c b/libguile/gc-mark.c
index 1aa036b7a..e4f838bf4 100644
--- a/libguile/gc-mark.c
+++ b/libguile/gc-mark.c
@@ -87,7 +87,7 @@ scm_mark_all (void)
for (i = 0; i < SCM_HASHTABLE_N_BUCKETS (scm_gc_registered_roots); ++i)
{
SCM l = SCM_HASHTABLE_BUCKETS (scm_gc_registered_roots)[i];
- for (; !SCM_NULLP (l); l = SCM_CDR (l))
+ for (; !scm_is_null (l); l = SCM_CDR (l))
{
SCM *p = (SCM *) (scm_to_ulong (SCM_CAAR (l)));
scm_gc_mark (*p);
@@ -300,9 +300,9 @@ scm_gc_mark_dependencies (SCM p)
/* mark everything on the alist except the keys or
* values, according to weak_values and weak_keys. */
- while ( SCM_CONSP (alist)
+ while ( scm_is_pair (alist)
&& !SCM_GC_MARK_P (alist)
- && SCM_CONSP (SCM_CAR (alist)))
+ && scm_is_pair (SCM_CAR (alist)))
{
SCM kvpair;
SCM next_alist;