summaryrefslogtreecommitdiff
path: root/libguile/unif.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-11-23 13:54:49 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-11-23 13:54:49 +0000
commit6a0476fd113e72d94277b7fd59a72db9bff66b28 (patch)
tree5472165f476a193bf8236790e535e4180a8e5b84 /libguile/unif.c
parent9377887701ecd64970fb8c65929ab2e8516ca929 (diff)
downloadguile-6a0476fd113e72d94277b7fd59a72db9bff66b28.tar.gz
* SCM_SETCHARS deprecated.
Diffstat (limited to 'libguile/unif.c')
-rw-r--r--libguile/unif.c6
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;