summaryrefslogtreecommitdiff
path: root/libguile/gsubr.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/gsubr.c')
-rw-r--r--libguile/gsubr.c4
1 files changed, 1 insertions, 3 deletions
diff --git a/libguile/gsubr.c b/libguile/gsubr.c
index 91852d5b8..cc9bc39a5 100644
--- a/libguile/gsubr.c
+++ b/libguile/gsubr.c
@@ -179,16 +179,14 @@ scm_c_define_gsubr_with_generic (const char *name,
SCM
-scm_gsubr_apply (SCM args)
+scm_gsubr_apply (SCM self, SCM args)
#define FUNC_NAME "scm_gsubr_apply"
{
- SCM self = SCM_CAR (args);
SCM (*fcn)() = SCM_SUBRF (self);
SCM v[SCM_GSUBR_MAX];
unsigned int typ = SCM_GSUBR_TYPE (self);
long i, n = SCM_GSUBR_REQ (typ) + SCM_GSUBR_OPT (typ) + SCM_GSUBR_REST (typ);
- args = SCM_CDR (args);
for (i = 0; i < SCM_GSUBR_REQ (typ); i++) {
if (scm_is_null (args))
scm_wrong_num_args (SCM_SNAME (self));