From d192791373b79e905eb02f9c0b01413051a7b2f8 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Fri, 6 Jul 2012 18:12:59 +0200 Subject: 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. --- libguile/struct.c | 11 ----------- 1 file changed, 11 deletions(-) (limited to 'libguile/struct.c') diff --git a/libguile/struct.c b/libguile/struct.c index 326f306ac..e6c7f4bdc 100644 --- a/libguile/struct.c +++ b/libguile/struct.c @@ -917,17 +917,6 @@ SCM_DEFINE (scm_struct_vtable, "struct-vtable", 1, 0, 0, #undef FUNC_NAME -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); - return scm_from_unsigned_integer - (((scm_t_bits)SCM_STRUCT_DATA (handle)) >> 3); -} -#undef FUNC_NAME - /* {Associating names and classes with vtables} * * The name of a vtable should probably be stored as a slot. This is -- cgit v1.2.3 From 0bb1353a6b618f1b355da13b6b7c3b56b201a2dc Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Fri, 18 Nov 2011 11:15:43 +0100 Subject: add Scheme binding for scm_standard_vtable_vtable * libguile/struct.c (scm_init_struct): Export to Scheme. --- libguile/struct.c | 1 + 1 file changed, 1 insertion(+) (limited to 'libguile/struct.c') diff --git a/libguile/struct.c b/libguile/struct.c index e6c7f4bdc..74b903e9d 100644 --- a/libguile/struct.c +++ b/libguile/struct.c @@ -1027,6 +1027,7 @@ scm_init_struct () scm_standard_vtable_vtable = scm_make_vtable_vtable (scm_nullstr, SCM_INUM0, SCM_EOL); + scm_c_define ("", scm_standard_vtable_vtable); scm_applicable_struct_vtable_vtable = scm_make_struct (scm_standard_vtable_vtable, SCM_INUM0, -- cgit v1.2.3 From 2921f537609547e7c9ee0df555a840407313eabd Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Fri, 18 Nov 2011 11:31:52 +0100 Subject: Scheme standard-vtable-fields binding * libguile/struct.c (scm_init_struct): Export standard-vtable-fields to Scheme. --- libguile/struct.c | 1 + 1 file changed, 1 insertion(+) (limited to 'libguile/struct.c') diff --git a/libguile/struct.c b/libguile/struct.c index 74b903e9d..a5c4e3a60 100644 --- a/libguile/struct.c +++ b/libguile/struct.c @@ -1022,6 +1022,7 @@ scm_init_struct () GC_REGISTER_DISPLACEMENT (2 * sizeof (scm_t_bits)); required_vtable_fields = scm_from_locale_string (SCM_VTABLE_BASE_LAYOUT); + scm_c_define ("standard-vtable-fields", required_vtable_fields); required_applicable_fields = scm_from_locale_string (SCM_APPLICABLE_BASE_LAYOUT); required_applicable_with_setter_fields = scm_from_locale_string (SCM_APPLICABLE_WITH_SETTER_BASE_LAYOUT); -- cgit v1.2.3