summaryrefslogtreecommitdiff
path: root/libguile/deprecated.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2012-07-06 18:12:59 +0200
committerAndy Wingo <wingo@pobox.com>2012-07-06 18:12:59 +0200
commitd192791373b79e905eb02f9c0b01413051a7b2f8 (patch)
tree829a54bf919a51698e03de85f2e83702170ee41c /libguile/deprecated.c
parent5d312f3c2c5db3a7677a9c8ec4306feabce8445f (diff)
downloadguile-d192791373b79e905eb02f9c0b01413051a7b2f8.tar.gz
deprecate struct-vtable-tag
* libguile/deprecated.c: * libguile/deprecated.h: * libguile/struct.c: * libguile/struct.h: * doc/ref/api-compound.texi: Deprecate struct-vtable-tag.
Diffstat (limited to 'libguile/deprecated.c')
-rw-r--r--libguile/deprecated.c17
1 files changed, 17 insertions, 0 deletions
diff --git a/libguile/deprecated.c b/libguile/deprecated.c
index af0752c61..f0211a52f 100644
--- a/libguile/deprecated.c
+++ b/libguile/deprecated.c
@@ -2822,6 +2822,23 @@ SCM_DEFINE (scm_eval_closure_module,
+SCM_DEFINE (scm_struct_vtable_tag, "struct-vtable-tag", 1, 0, 0,
+ (SCM handle),
+ "Return the vtable tag of the structure @var{handle}.")
+#define FUNC_NAME s_scm_struct_vtable_tag
+{
+ SCM_VALIDATE_VTABLE (1, handle);
+ scm_c_issue_deprecation_warning
+ ("struct-vtable-tag is deprecated. What were you doing with it anyway?");
+
+ return scm_from_unsigned_integer
+ (((scm_t_bits)SCM_STRUCT_DATA (handle)) >> 3);
+}
+#undef FUNC_NAME
+
+
+
+
void
scm_i_init_deprecated ()
{