summaryrefslogtreecommitdiff
path: root/libguile/procprop.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/procprop.c')
-rw-r--r--libguile/procprop.c2
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: