mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-16 00:30:21 +02:00
Code Activity

Again, SCM/scm_bits_t mixup fixes.

Browse source
This commit is contained in:
Dirk Herrmann 2000-04-19 11:32:05 +00:00
parent 3201d76356
commit 9e882eeca8
3 changed files with 12 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/weaks.c
View file

@ -67,9 +67,9 @@ SCM_DEFINE (scm_make_weak_vector, "make-weak-vector", 1, 1, 0,
v = scm_make_vector (scm_sum (k, SCM_MAKINUM (2)), fill);
SCM_DEFER_INTS;
SCM_SETLENGTH(v, SCM_INUM (k), scm_tc7_wvect);
SCM_VELTS(v)[0] = SCM_EOL;
SCM_VELTS(v)[1] = (SCM)0;
SCM_SETVELTS(v, SCM_VELTS(v) + 2);
SCM_VELTS(v)[-2] = SCM_EOL;
SCM_UNPACK (SCM_VELTS (v)[-1]) = 0;
SCM_ALLOW_INTS;
return v;
}