diff options
| author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-04-19 11:32:05 +0000 |
|---|---|---|
| committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-04-19 11:32:05 +0000 |
| commit | 9e882eeca8b6930217b0990190d96cb3f2c71a3c (patch) | |
| tree | 3d696ee35c88ae06b04d5f49b9638afc24a16e9a /libguile/weaks.c | |
| parent | 3201d7635686e1b4c811360ceb29d28b555ea4fe (diff) | |
Again, SCM/scm_bits_t mixup fixes.
Diffstat (limited to 'libguile/weaks.c')
| -rw-r--r-- | libguile/weaks.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/weaks.c b/libguile/weaks.c index 6816bfa5e..839cce654 100644 --- a/libguile/weaks.c +++ b/libguile/weaks.c @@ -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; } |