summaryrefslogtreecommitdiff
path: root/libguile/weaks.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-11-22 14:45:41 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-11-22 14:45:41 +0000
commitbc0eaf7b78140d9215d2ae7b88ca93000145e4a3 (patch)
treeece59502920f9022d197d6b1b450e00b084160dd /libguile/weaks.c
parent34f0f2b8af3585c4057cf076739151accde02147 (diff)
downloadguile-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.c3
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;