summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--libguile/deprecated.c7
-rw-r--r--libguile/deprecated.h3
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))