diff options
Diffstat (limited to 'libguile/values.c')
-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"); |