summaryrefslogtreecommitdiff
path: root/libguile/procprop.c
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>1998-11-26 08:33:49 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>1998-11-26 08:33:49 +0000
commit91517e28d1d61acf3009f8b636ac2d958d88de88 (patch)
treeb6a1142327ffcd6dd9b0a3afd1e5f0fa7b4767be /libguile/procprop.c
parentf6b250bdde2ec4a1a0efcd1f937802eb2072576d (diff)
downloadguile-91517e28d1d61acf3009f8b636ac2d958d88de88.tar.gz
* procprop.c (scm_i_procedure_arity): Bugfix: Return correct value
for asubrs, rpsubrs, lsubrs and lsubr_2s.
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: