diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1998-11-26 08:33:49 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1998-11-26 08:33:49 +0000 |
commit | 91517e28d1d61acf3009f8b636ac2d958d88de88 (patch) | |
tree | b6a1142327ffcd6dd9b0a3afd1e5f0fa7b4767be /libguile/procprop.c | |
parent | f6b250bdde2ec4a1a0efcd1f937802eb2072576d (diff) | |
download | guile-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.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: |