diff options
author | Marius Vollmer <mvo@zagadka.de> | 2004-09-22 17:41:37 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2004-09-22 17:41:37 +0000 |
commit | d2e53ed6f84df8c79f4bf5cf41d4f6d381bc065b (patch) | |
tree | df14a633c6d8ac08ba098651a9164a0c991d8288 /libguile/gc-mark.c | |
parent | a61f4e0c61695e17984b25b16fbf720b851b739c (diff) | |
download | guile-d2e53ed6f84df8c79f4bf5cf41d4f6d381bc065b.tar.gz |
*** empty log message ***
Diffstat (limited to 'libguile/gc-mark.c')
-rw-r--r-- | libguile/gc-mark.c | 6 |
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; |