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/weaks.c | |
parent | a61f4e0c61695e17984b25b16fbf720b851b739c (diff) | |
download | guile-d2e53ed6f84df8c79f4bf5cf41d4f6d381bc065b.tar.gz |
*** empty log message ***
Diffstat (limited to 'libguile/weaks.c')
-rw-r--r-- | libguile/weaks.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/libguile/weaks.c b/libguile/weaks.c index 2b0eba6eb..250a4cf7d 100644 --- a/libguile/weaks.c +++ b/libguile/weaks.c @@ -264,7 +264,7 @@ scm_mark_weak_vector_spines (void *dummy1 SCM_UNUSED, { SCM w; - for (w = scm_weak_vectors; !SCM_NULLP (w); w = SCM_WVECT_GC_CHAIN (w)) + for (w = scm_weak_vectors; !scm_is_null (w); w = SCM_WVECT_GC_CHAIN (w)) { if (SCM_IS_WHVEC_ANY (w)) { @@ -281,9 +281,9 @@ scm_mark_weak_vector_spines (void *dummy1 SCM_UNUSED, SCM alist; alist = ptr[j]; - 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_SET_GC_MARK (alist); SCM_SET_GC_MARK (SCM_CAR (alist)); @@ -304,7 +304,7 @@ scm_scan_weak_vectors (void *dummy1 SCM_UNUSED, void *dummy3 SCM_UNUSED) { SCM *ptr, w; - for (w = scm_weak_vectors; !SCM_NULLP (w); w = SCM_WVECT_GC_CHAIN (w)) + for (w = scm_weak_vectors; !scm_is_null (w); w = SCM_WVECT_GC_CHAIN (w)) { if (!SCM_IS_WHVEC_ANY (w)) { @@ -336,8 +336,8 @@ scm_scan_weak_vectors (void *dummy1 SCM_UNUSED, fixup = ptr + j; alist = *fixup; - while (SCM_CONSP (alist) - && SCM_CONSP (SCM_CAR (alist))) + while (scm_is_pair (alist) + && scm_is_pair (SCM_CAR (alist))) { SCM key; SCM value; |