diff options
author | Andy Wingo <wingo@pobox.com> | 2011-11-18 11:50:50 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2012-07-28 13:03:04 +0200 |
commit | 6d46f1e48a76e3e5c9066a6e9ed417ac253d9d87 (patch) | |
tree | 5e88b8523fb20ea310343a9655096cab42a7e947 /libguile/goops.c | |
parent | 41a9e8829c1720da01f3bd471552688806478a51 (diff) | |
download | guile-6d46f1e48a76e3e5c9066a6e9ed417ac253d9d87.tar.gz |
deprecate make-vtable-vtable
* libguile/struct.h:
* libguile/struct.c (scm_make_vtable_vtable): Deprecate, as you can
handle most of the use cases with make-vtable, and we don't want to
promote the creation of new roots to the type hierarchy.
(scm_i_make_vtable_vtable): The internal replacement.
Diffstat (limited to 'libguile/goops.c')
-rw-r--r-- | libguile/goops.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/goops.c b/libguile/goops.c index f4b2b34ef..9a4027714 100644 --- a/libguile/goops.c +++ b/libguile/goops.c @@ -982,7 +982,7 @@ create_basic_classes (void) /**** <class> ****/ SCM cs = scm_from_locale_string (SCM_CLASS_CLASS_LAYOUT); SCM name = scm_from_latin1_symbol ("<class>"); - scm_class_class = scm_make_vtable_vtable (cs, SCM_INUM0, SCM_EOL); + scm_class_class = scm_i_make_vtable_vtable (cs); SCM_SET_CLASS_FLAGS (scm_class_class, (SCM_CLASSF_GOOPS_OR_VALID | SCM_CLASSF_METACLASS)); |