diff options
-rw-r--r-- | libguile/deprecated.c | 7 | ||||
-rw-r--r-- | libguile/deprecated.h | 3 |
2 files changed, 9 insertions, 1 deletions
diff --git a/libguile/deprecated.c b/libguile/deprecated.c index f428bd4bf..e8cec8ad4 100644 --- a/libguile/deprecated.c +++ b/libguile/deprecated.c @@ -1785,6 +1785,13 @@ scm_trampoline_2 (SCM proc) return scm_call_2; } +int +scm_i_subr_p (SCM x) +{ + scm_c_issue_deprecation_warning ("`scm_subr_p' is deprecated. Use SCM_PRIMITIVE_P instead."); + return SCM_PRIMITIVE_P (x); +} + void scm_i_init_deprecated () diff --git a/libguile/deprecated.h b/libguile/deprecated.h index f7b053c55..8ecd8b241 100644 --- a/libguile/deprecated.h +++ b/libguile/deprecated.h @@ -606,7 +606,8 @@ SCM_DEPRECATED scm_t_trampoline_2 scm_trampoline_2 (SCM proc); /* Deprecated 2010-01-05, use SCM_PRIMITIVE_P instead */ -#define scm_subr_p(x) (SCM_PRIMITIVE_P (x)) +SCM_DEPRECATED int scm_i_subr_p (SCM x); +#define scm_subr_p(x) (scm_i_subr_p (x)) |