diff options
author | Andy Wingo <wingo@pobox.com> | 2009-11-03 22:28:26 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2009-11-15 20:28:12 +0100 |
commit | b7bff2ba9bc7b1b131b8e08059dd2870f76500be (patch) | |
tree | e5b9d046a36bb0c5427419f954811e23a8348f6e | |
parent | ceedcfaa0c273b466a371b9bef7c84ce27ec27fb (diff) | |
download | guile-b7bff2ba9bc7b1b131b8e08059dd2870f76500be.tar.gz |
values.c defines a vtable, not a vtable-vtable
* libguile/values.c (scm_init_values): Define a vtable, not a
"metaclass".
-rw-r--r-- | libguile/values.c | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/libguile/values.c b/libguile/values.c index 81fdcf851..71cdbe2af 100644 --- a/libguile/values.c +++ b/libguile/values.c @@ -1,4 +1,4 @@ -/* Copyright (C) 2000, 2001, 2006, 2008 Free Software Foundation, Inc. +/* Copyright (C) 2000, 2001, 2006, 2008, 2009 Free Software Foundation, Inc. * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public License @@ -80,12 +80,7 @@ scm_init_values (void) SCM print = scm_c_define_subr ("%print-values", scm_tc7_subr_2, print_values); - scm_values_vtable - = scm_permanent_object ( - scm_make_vtable_vtable (scm_from_locale_string ("pr"), - SCM_INUM0, SCM_EOL)); - - SCM_SET_STRUCT_PRINTER (scm_values_vtable, print); + scm_values_vtable = scm_make_vtable (scm_from_locale_string ("pr"), print); scm_add_feature ("values"); |