diff options
Diffstat (limited to 'libguile/procs.h')
-rw-r--r-- | libguile/procs.h | 28 |
1 files changed, 0 insertions, 28 deletions
diff --git a/libguile/procs.h b/libguile/procs.h index a832cd06f..a4dfaff3c 100644 --- a/libguile/procs.h +++ b/libguile/procs.h @@ -27,36 +27,8 @@ - -/* Subrs - */ - -#define SCM_SUBR_META_INFO(x) ((SCM *) SCM_CELL_WORD_3 (x)) -#define SCM_SUBR_NAME(x) (SCM_SUBR_META_INFO (x) [0]) -#define SCM_SUBRF(x) ((SCM (*)()) SCM_CELL_WORD_1 (x)) -#define SCM_SUBR_PROPS(x) (SCM_SUBR_META_INFO (x) [1]) -#define SCM_SUBR_GENERIC(x) ((SCM *) SCM_CELL_WORD_2 (x)) -#define SCM_SET_SUBR_GENERIC(x, g) (*((SCM *) SCM_CELL_WORD_2 (x)) = (g)) -#define SCM_SET_SUBR_GENERIC_LOC(x, g) (SCM_SET_CELL_WORD_2 (x, (scm_t_bits) g)) - -/* Return the most suitable subr type for a subr with REQ required arguments, - 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) \ - (scm_tc7_gsubr | (SCM_GSUBR_MAKTYPE (req, opt, rest) << 8U)) - - - - -SCM_API SCM scm_c_make_subr (const char *name, long type, SCM (*fcn)()); -SCM_API SCM scm_c_make_subr_with_generic (const char *name, long type, - SCM (*fcn)(), SCM *gf); -SCM_API SCM scm_c_define_subr (const char *name, long type, SCM (*fcn)()); -SCM_API SCM scm_c_define_subr_with_generic (const char *name, long type, - SCM (*fcn)(), SCM *gf); SCM_API SCM scm_procedure_p (SCM obj); SCM_API SCM scm_thunk_p (SCM obj); -SCM_API int scm_subr_p (SCM obj); SCM_API SCM scm_procedure_documentation (SCM proc); SCM_API SCM scm_procedure_with_setter_p (SCM obj); SCM_API SCM scm_make_procedure_with_setter (SCM procedure, SCM setter); |