summaryrefslogtreecommitdiff
path: root/libguile/weaks.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-07-13 15:00:58 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-07-13 15:00:58 +0000
commit406c7d902207af0e25afc6d543e94067bc92bf2b (patch)
treed432dcda1aff044e335d6fe823625423c84ef520 /libguile/weaks.c
parent2238100586a99880885ac31c146a2397f2d579ff (diff)
downloadguile-406c7d902207af0e25afc6d543e94067bc92bf2b.tar.gz
* Extend checks performed with SCM_DEBUG_CELL_ACCESSES=1 and make them
configurable at run-time. * Replace SCM_FREEP by SCM_FREE_CELL_P and scm_gc_heap_lock by scm_gc_running_p (not in all places yet).
Diffstat (limited to 'libguile/weaks.c')
-rw-r--r--libguile/weaks.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/weaks.c b/libguile/weaks.c
index dad6bd63b..71905ac05 100644
--- a/libguile/weaks.c
+++ b/libguile/weaks.c
@@ -264,7 +264,7 @@ scm_scan_weak_vectors (void *dummy1, void *dummy2, void *dummy3)
ptr = SCM_VELTS (w);
n = SCM_LENGTH (w);
for (j = 0; j < n; ++j)
- if (SCM_FREEP (ptr[j]))
+ if (SCM_FREE_CELL_P (ptr[j]))
ptr[j] = SCM_BOOL_F;
}
else /* if (SCM_IS_WHVEC_ANY (scm_weak_vectors[i])) */
@@ -296,8 +296,8 @@ scm_scan_weak_vectors (void *dummy1, void *dummy2, void *dummy3)
key = SCM_CAAR (alist);
value = SCM_CDAR (alist);
- if ( (weak_keys && SCM_FREEP (key))
- || (weak_values && SCM_FREEP (value)))
+ if ( (weak_keys && SCM_FREE_CELL_P (key))
+ || (weak_values && SCM_FREE_CELL_P (value)))
{
*fixup = SCM_CDR (alist);
}