diff options
author | Michael Livshin <mlivshin@bigfoot.com> | 2001-05-26 20:51:22 +0000 |
---|---|---|
committer | Michael Livshin <mlivshin@bigfoot.com> | 2001-05-26 20:51:22 +0000 |
commit | c014a02eec7b99c54d8a156ce491ae8d1e341f97 (patch) | |
tree | fa7a113564c23215b83e44a1498616a6bf16c853 /libguile/weaks.c | |
parent | f3f70257a3befb6495760923d167e52d5cdfddae (diff) | |
download | guile-c014a02eec7b99c54d8a156ce491ae8d1e341f97.tar.gz |
revert the ill-considered part of the 2001-05-24 changes
Diffstat (limited to 'libguile/weaks.c')
-rw-r--r-- | libguile/weaks.c | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/libguile/weaks.c b/libguile/weaks.c index 1432ae264..4bfe975a0 100644 --- a/libguile/weaks.c +++ b/libguile/weaks.c @@ -90,7 +90,7 @@ SCM_DEFINE (scm_weak_vector, "weak-vector", 0, 0, 1, { SCM res; SCM *data; - scm_bits_t i; + long i; /* Dirk:FIXME:: In case of multiple threads, the list might get corrupted while the vector is being created. */ @@ -235,7 +235,8 @@ scm_mark_weak_vector_spines (void *dummy1, void *dummy2, void *dummy3) { SCM *ptr; SCM obj; - scm_bits_t j, n; + long j; + long n; obj = w; ptr = SCM_VELTS (w); @@ -279,8 +280,8 @@ scm_scan_weak_vectors (void *dummy1, void *dummy2, void *dummy3) else /* if (SCM_IS_WHVEC_ANY (scm_weak_vectors[i])) */ { SCM obj = w; - register scm_bits_t n = SCM_VECTOR_LENGTH (w); - register scm_bits_t j; + register long n = SCM_VECTOR_LENGTH (w); + register long j; int weak_keys = SCM_IS_WHVEC (obj) || SCM_IS_WHVEC_B (obj); int weak_values = SCM_IS_WHVEC_V (obj) || SCM_IS_WHVEC_B (obj); |