summaryrefslogtreecommitdiff
path: root/libguile/deprecated.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/deprecated.c')
-rw-r--r--libguile/deprecated.c7
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 ()