diff options
Diffstat (limited to 'libguile/procprop.c')
-rw-r--r-- | libguile/procprop.c | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/libguile/procprop.c b/libguile/procprop.c index 480970266..62476c037 100644 --- a/libguile/procprop.c +++ b/libguile/procprop.c @@ -60,7 +60,7 @@ scm_i_procedure_arity (SCM proc, int *req, int *opt, int *rest) return 1; } - while (!SCM_PROGRAM_P (proc)) + while (!SCM_PROGRAM_P (proc) && !SCM_RTL_PROGRAM_P (proc)) { if (SCM_STRUCTP (proc)) { @@ -82,14 +82,6 @@ scm_i_procedure_arity (SCM proc, int *req, int *opt, int *rest) return 1; } - else if (SCM_RTL_PROGRAM_P (proc)) - { - *req = 0; - *opt = 0; - *rest = 1; - - return 1; - } else return 0; } |