diff options
Diffstat (limited to 'libguile/programs.c')
-rw-r--r-- | libguile/programs.c | 2 |
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)); |