diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-11-22 14:45:41 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-11-22 14:45:41 +0000 |
commit | bc0eaf7b78140d9215d2ae7b88ca93000145e4a3 (patch) | |
tree | ece59502920f9022d197d6b1b450e00b084160dd /libguile/weaks.c | |
parent | 34f0f2b8af3585c4057cf076739151accde02147 (diff) | |
download | guile-bc0eaf7b78140d9215d2ae7b88ca93000145e4a3.tar.gz |
* Added SCM_SET_VECTOR_LENGTH as one replacement for SCM_SETLENGTH.
Diffstat (limited to 'libguile/weaks.c')
-rw-r--r-- | libguile/weaks.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/libguile/weaks.c b/libguile/weaks.c index 1d803401b..e7f6cd89d 100644 --- a/libguile/weaks.c +++ b/libguile/weaks.c @@ -63,10 +63,11 @@ SCM_DEFINE (scm_make_weak_vector, "make-weak-vector", 1, 1, 0, "@var{fill}. The default value for @var{fill} is the empty list.") #define FUNC_NAME s_scm_make_weak_vector { + /* Dirk:FIXME:: We should probably rather use a double cell for weak vectors. */ SCM v; v = scm_make_vector (scm_sum (k, SCM_MAKINUM (2)), fill); SCM_DEFER_INTS; - SCM_SETLENGTH(v, SCM_INUM (k), scm_tc7_wvect); + SCM_SET_VECTOR_LENGTH (v, SCM_INUM (k), scm_tc7_wvect); SCM_SETVELTS(v, SCM_VELTS(v) + 2); SCM_VELTS(v)[-2] = SCM_EOL; SCM_UNPACK (SCM_VELTS (v)[-1]) = 0; |