summaryrefslogtreecommitdiff
path: root/libguile/programs.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/programs.c')
-rw-r--r--libguile/programs.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/programs.c b/libguile/programs.c
index 61a0f11e7..7399fa05f 100644
--- a/libguile/programs.c
+++ b/libguile/programs.c
@@ -296,7 +296,7 @@ scm_i_program_arity (SCM program, int *req, int *opt, int *rest)
/* take the last arglist, it will be least specific */
while (scm_is_pair (scm_cdr (arities)))
arities = scm_cdr (arities);
- x = scm_cdar (arities);
+ x = scm_cddar (arities);
if (scm_is_pair (x))
{
*req = scm_to_int (scm_car (x));