diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-07-13 15:00:58 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-07-13 15:00:58 +0000 |
commit | 406c7d902207af0e25afc6d543e94067bc92bf2b (patch) | |
tree | d432dcda1aff044e335d6fe823625423c84ef520 /libguile/weaks.c | |
parent | 2238100586a99880885ac31c146a2397f2d579ff (diff) | |
download | guile-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.c | 6 |
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); } |