diff options
Diffstat (limited to 'libguile/deprecated.c')
-rw-r--r-- | libguile/deprecated.c | 7 |
1 files changed, 7 insertions, 0 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 () |