slight scm_procedure_p, scm_i_procedure_arity refactor