diff options
Diffstat (limited to 'libguile/procprop.c')
-rw-r--r-- | libguile/procprop.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/libguile/procprop.c b/libguile/procprop.c index 1e87dde0d..f7e731814 100644 --- a/libguile/procprop.c +++ b/libguile/procprop.c @@ -84,8 +84,10 @@ scm_i_procedure_arity (SCM proc) case scm_tc7_rpsubr: case scm_tc7_lsubr: r = 1; + break; case scm_tc7_lsubr_2: a += 2; + r = 1; break; #ifdef CCLO case scm_tc7_cclo: |