summaryrefslogtreecommitdiff
path: root/libguile/unif.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-03-04 17:09:34 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-03-04 17:09:34 +0000
commitdb4b4ca64f0480198cbc82e0f6fb3d3a8af5f580 (patch)
tree8b0dbb8c8df3ccd03143f208c19c9acb19831ef1 /libguile/unif.c
parentcc6c7feea443b5d5f95d2cc88e0b244ccf15b373 (diff)
downloadguile-db4b4ca64f0480198cbc82e0f6fb3d3a8af5f580.tar.gz
* Eliminate some calls to scm_wta.
Diffstat (limited to 'libguile/unif.c')
-rw-r--r--libguile/unif.c5
1 files changed, 4 insertions, 1 deletions
diff --git a/libguile/unif.c b/libguile/unif.c
index b9987c36d..59b3fc659 100644
--- a/libguile/unif.c
+++ b/libguile/unif.c
@@ -1156,11 +1156,12 @@ SCM_DEFINE (scm_uniform_vector_ref, "uniform-vector-ref", 2, 0, 0,
SCM
scm_cvref (SCM v, scm_sizet pos, SCM last)
+#define FUNC_NAME "scm_cvref"
{
switch SCM_TYP7 (v)
{
default:
- scm_wta (v, (char *) SCM_ARG1, "PROGRAMMING ERROR: scm_cvref");
+ SCM_WRONG_TYPE_ARG (SCM_ARG1, v);
case scm_tc7_bvect:
if (SCM_BITVEC_REF(v,pos))
return SCM_BOOL_T;
@@ -1222,6 +1223,8 @@ scm_cvref (SCM v, scm_sizet pos, SCM last)
}
}
}
+#undef FUNC_NAME
+
SCM_REGISTER_PROC(s_uniform_array_set1_x, "uniform-array-set1!", 3, 0, 0, scm_array_set_x);