diff options
Diffstat (limited to 'libguile/procs.h')
-rw-r--r-- | libguile/procs.h | 34 |
1 files changed, 1 insertions, 33 deletions
diff --git a/libguile/procs.h b/libguile/procs.h index dc764edf8..e993c8f09 100644 --- a/libguile/procs.h +++ b/libguile/procs.h @@ -44,39 +44,7 @@ OPT optional arguments, and REST (0 or 1) arguments. This has to be in sync with `create_gsubr ()'. */ #define SCM_SUBR_ARITY_TO_TYPE(req, opt, rest) \ - ((rest) == 0 \ - ? ((opt) == 0 \ - ? ((req) == 0 \ - ? scm_tc7_subr_0 \ - : ((req) == 1 \ - ? scm_tc7_subr_1 \ - : ((req) == 2 \ - ? scm_tc7_subr_2 \ - : ((req) == 3 \ - ? scm_tc7_subr_3 \ - : scm_tc7_gsubr \ - | (SCM_GSUBR_MAKTYPE (req, opt, rest) << 8U))))) \ - : ((opt) == 1 \ - ? ((req) == 0 \ - ? scm_tc7_subr_1o \ - : ((req) == 1 \ - ? scm_tc7_subr_2o \ - : scm_tc7_gsubr | \ - (SCM_GSUBR_MAKTYPE (req, opt, rest) << 8U))) \ - : scm_tc7_gsubr | \ - (SCM_GSUBR_MAKTYPE (req, opt, rest) << 8U))) \ - : ((rest) == 1 \ - ? ((opt) == 0 \ - ? ((req) == 0 \ - ? scm_tc7_lsubr \ - : ((req) == 2 \ - ? scm_tc7_lsubr_2 \ - : scm_tc7_gsubr \ - | (SCM_GSUBR_MAKTYPE (req, opt, rest) << 8U))) \ - : scm_tc7_gsubr \ - | (SCM_GSUBR_MAKTYPE (req, opt, rest) << 8U)) \ - : scm_tc7_gsubr \ - | (SCM_GSUBR_MAKTYPE (req, opt, rest) << 8U))) + (scm_tc7_gsubr | (SCM_GSUBR_MAKTYPE (req, opt, rest) << 8U)) |