diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-11-23 13:54:49 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-11-23 13:54:49 +0000 |
commit | 6a0476fd113e72d94277b7fd59a72db9bff66b28 (patch) | |
tree | 5472165f476a193bf8236790e535e4180a8e5b84 /libguile/unif.c | |
parent | 9377887701ecd64970fb8c65929ab2e8516ca929 (diff) | |
download | guile-6a0476fd113e72d94277b7fd59a72db9bff66b28.tar.gz |
* SCM_SETCHARS deprecated.
Diffstat (limited to 'libguile/unif.c')
-rw-r--r-- | libguile/unif.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/unif.c b/libguile/unif.c index 77f9e7a42..9af99a038 100644 --- a/libguile/unif.c +++ b/libguile/unif.c @@ -166,12 +166,12 @@ scm_make_uve (long k, SCM prot) if (k > 0) { i = sizeof (long) * ((k + SCM_LONG_BIT - 1) / SCM_LONG_BIT); - SCM_SETCHARS (v, (char *) scm_must_malloc (i, "vector")); + SCM_SET_BITVECTOR_BASE (v, (char *) scm_must_malloc (i, "vector")); SCM_SET_BITVECTOR_LENGTH (v, k); } else { - SCM_SETCHARS (v, 0); + SCM_SET_BITVECTOR_BASE (v, 0); SCM_SET_BITVECTOR_LENGTH (v, 0); } return v; @@ -239,7 +239,7 @@ scm_make_uve (long k, SCM prot) SCM_NEWCELL (v); SCM_DEFER_INTS; - SCM_SETCHARS (v, (char *) scm_must_malloc (i ? i : 1, "vector")); + SCM_SET_UVECTOR_BASE (v, (char *) scm_must_malloc (i ? i : 1, "vector")); SCM_SET_UVECTOR_LENGTH (v, k, type); SCM_ALLOW_INTS; return v; |