From f3c6a02c885ad29f6af0d786e14e34c81d49470f Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Sun, 1 May 2011 23:00:55 +0200 Subject: deprecate scm_struct_table * libguile/goops.h: * libguile/goops.c (scm_i_define_class_for_vtable): New internal helper, defines a class for a vtable, relying on the name slot being set correctly. (scm_class_of, create_struct_classes): Use the local vtable-to-class map instead of scm_struct_table. * libguile/struct.h (SCM_STRUCT_TABLE_NAME, SCM_SET_STRUCT_TABLE_NAME) (SCM_STRUCT_TABLE_CLASS, SCM_SET_STRUCT_TABLE_CLASS, scm_struct_table) (scm_struct_create_handle): Deprecate these internals of the map between structs and classes. * libguile/deprecated.h: * libguile/deprecated.c (scm_struct_create_handle): Deprecated code over here now. --- libguile/deprecated.c | 14 ++++++++++++++ 1 file changed, 14 insertions(+) (limited to 'libguile/deprecated.c') diff --git a/libguile/deprecated.c b/libguile/deprecated.c index 049807a99..41e4dbcd3 100644 --- a/libguile/deprecated.c +++ b/libguile/deprecated.c @@ -2561,10 +2561,24 @@ scm_whash_insert (SCM whash, SCM key, SCM obj) +SCM scm_struct_table = SCM_BOOL_F; + +SCM +scm_struct_create_handle (SCM obj) +{ + scm_c_issue_deprecation_warning + ("`scm_struct_create_handle' is deprecated, and has no effect."); + + return scm_cons (obj, scm_cons (SCM_BOOL_F, SCM_BOOL_F)); +} + + + void scm_i_init_deprecated () { properties_whash = scm_make_weak_key_hash_table (SCM_UNDEFINED); + scm_struct_table = scm_make_hash_table (SCM_UNDEFINED); #include "libguile/deprecated.x" } -- cgit v1.2.3