mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-09 07:00:23 +02:00
Code Activity

values.c defines a vtable, not a vtable-vtable

Browse source 
* libguile/values.c (scm_init_values): Define a vtable, not a
  "metaclass".
This commit is contained in:
Andy Wingo 2009-11-03 22:28:26 +01:00
parent ceedcfaa0c
commit b7bff2ba9b
1 changed files with 2 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

9
libguile/values.c
View file

@ -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 * This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public License * 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, SCM print = scm_c_define_subr ("%print-values", scm_tc7_subr_2,
print_values); print_values);
scm_values_vtable scm_values_vtable = scm_make_vtable (scm_from_locale_string ("pr"), print);
= 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_add_feature ("values"); scm_add_feature ("values");