diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-03-04 17:09:34 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-03-04 17:09:34 +0000 |
commit | db4b4ca64f0480198cbc82e0f6fb3d3a8af5f580 (patch) | |
tree | 8b0dbb8c8df3ccd03143f208c19c9acb19831ef1 /libguile/unif.c | |
parent | cc6c7feea443b5d5f95d2cc88e0b244ccf15b373 (diff) | |
download | guile-db4b4ca64f0480198cbc82e0f6fb3d3a8af5f580.tar.gz |
* Eliminate some calls to scm_wta.
Diffstat (limited to 'libguile/unif.c')
-rw-r--r-- | libguile/unif.c | 5 |
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); |